आर प्रयोग गरेर एनिमेटेड हिस्टोग्रामहरू सिर्जना गर्नुहोस्

एनिमेटेड बार चार्टहरू जुन सीधा कुनै पनि वेबसाइटमा पोस्टमा इम्बेड गर्न सकिन्छ बढ्दो लोकप्रिय हुँदैछ। तिनीहरूले निश्चित समयमा कुनै पनि विशेषताहरूमा परिवर्तनहरूको गतिशीलता प्रदर्शन गर्दछ र यो स्पष्ट रूपमा गर्छ। R र जेनेरिक प्याकेजहरू प्रयोग गरेर तिनीहरूलाई कसरी सिर्जना गर्ने हेरौं।

Skillbox सिफारिस गर्दछ: व्यावहारिक पाठ्यक्रम "स्क्र्याचबाट पाइथन विकासकर्ता".

हामी सम्झाउँछौं: सबै Habr पाठकहरूका लागि - Habr प्रोमो कोड प्रयोग गरी कुनै पनि Skillbox पाठ्यक्रममा भर्ना गर्दा १०,००० रूबल छुट।

प्याकेजहरू

हामीलाई R मा प्याकेजहरू चाहिन्छ:

• ggplot2
• gganimate

यी दुई अति आवश्यक छन्। थप रूपमा, tidyverse, चौकीदार र तराजू डाटा व्यवस्थापन गर्न आवश्यक हुनेछ, array सफा गर्नुहोस् र तदनुसार ढाँचा।

डाटा

हामीले यस परियोजनामा ​​प्रयोग गर्ने मूल डाटासेट विश्व बैंकको वेबसाइटबाट डाउनलोड गरिएको छ। तिनीहरू यहाँ छन् - विश्व बैंक डाटा। एउटै डाटा, यदि तपाईंलाई यो रेडिमेड चाहिन्छ भने, बाट डाउनलोड गर्न सकिन्छ परियोजना फोल्डरहरू.

यो कस्तो प्रकारको जानकारी हो? नमूनाले धेरै वर्षहरू (२००० देखि २०१७ सम्म) धेरै देशहरूको GDP मान समावेश गर्दछ।

डाटा प्रोसेसिंग

आवश्यक डाटा ढाँचा तयार गर्न हामी तल पोस्ट गरिएको कोड प्रयोग गर्नेछौं। हामी स्तम्भको नामहरू खाली गर्छौं, नम्बरहरूलाई नम्बर ढाँचामा बदल्छौं, र gather() प्रकार्य प्रयोग गरेर डाटा रूपान्तरण गर्छौं। हामी थप प्रयोगको लागि gdp_tidy.csv मा प्राप्त भएका सबै कुरा बचत गर्छौं।

library(tidyverse)
library(janitor)

gdp <- read_csv("./data/GDP_Data.csv")

#select required columns

gdp <- gdp %>% select(3:15)

#filter only country rows

gdp <- gdp[1:217,]

gdp_tidy <- gdp %>%
mutate_at(vars(contains("YR")),as.numeric) %>%
gather(year,value,3:13) %>%
janitor::clean_names() %>%
mutate(year = as.numeric(stringr::str_sub(year,1,4)))

write_csv(gdp_tidy,"./data/gdp_tidy.csv")

एनिमेटेड हिस्टोग्राम

तिनीहरूको सिर्जना दुई चरणहरू आवश्यक छ:

• ggplot2 प्रयोग गरेर वास्तविक हिस्टोग्रामहरूको पूर्ण सेट प्लट गर्दै।
• gganimate प्रयोग गरी इच्छित प्यारामिटरहरू सहित स्थिर हिस्टोग्रामहरू एनिमेट गर्नुहोस्।

अन्तिम चरण भनेको GIF वा MP4 सहित इच्छित ढाँचामा एनिमेसन रेन्डर गर्नु हो।

पुस्तकालयहरू लोड गर्दै

• पुस्तकालय (व्यवस्थित)
• पुस्तकालय (ग्गानिमेट)

डाटा व्यवस्थापन

यस चरणमा, तपाईंले प्रत्येक वर्षको लागि शीर्ष 10 देशहरू प्राप्त गर्न डेटा फिल्टर गर्न आवश्यक छ। धेरै स्तम्भहरू थपौं जसले हामीलाई हिस्टोग्रामको लागि लिजेन्ड प्रदर्शन गर्न अनुमति दिनेछ।

gdp_tidy <- read_csv("./data/gdp_tidy.csv")

gdp_formatted <- gdp_tidy %>%
group_by(year) %>%
# The * 1 makes it possible to have non-integer ranks while sliding
mutate(rank = rank(-value),
Value_rel = value/value[rank==1],
Value_lbl = paste0(" ",round(value/1e9))) %>%
group_by(country_name) %>%
filter(rank <=10) %>%
ungroup()

स्थिर हिस्टोग्रामहरू निर्माण गर्दै

अब हामीसँग आवश्यक ढाँचामा डाटा प्याकेज छ, हामी स्थिर हिस्टोग्रामहरू कोर्न सुरु गर्छौं। आधारभूत जानकारी - चयन गरिएको समय अन्तरालको लागि अधिकतम GDP संग शीर्ष 10 देशहरू। हामी प्रत्येक वर्षको लागि ग्राफहरू सिर्जना गर्छौं।

staticplot = ggplot(gdp_formatted, aes(rank, group = country_name,
fill = as.factor(country_name), color = as.factor(country_name))) +
geom_tile(aes(y = value/2,
height = value,
width = 0.9), alpha = 0.8, color = NA) +
geom_text(aes(y = 0, label = paste(country_name, " ")), vjust = 0.2, hjust = 1) +
geom_text(aes(y=value,label = Value_lbl, hjust=0)) +
coord_flip(clip = "off", expand = FALSE) +
scale_y_continuous(labels = scales::comma) +
scale_x_reverse() +
guides(color = FALSE, fill = FALSE) +
theme(axis.line=element_blank(),
axis.text.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks=element_blank(),
axis.title.x=element_blank(),
axis.title.y=element_blank(),
legend.position="none",
panel.background=element_blank(),
panel.border=element_blank(),
panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),
panel.grid.major.x = element_line( size=.1, color="grey" ),
panel.grid.minor.x = element_line( size=.1, color="grey" ),
plot.title=element_text(size=25, hjust=0.5, face="bold", colour="grey", vjust=-1),
plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="grey"),
plot.caption =element_text(size=8, hjust=0.5, face="italic", color="grey"),
plot.background=element_blank(),
plot.margin = margin(2,2, 2, 4, "cm"))

ggplot2 प्रयोग गरेर प्लटहरू सिर्जना गर्न धेरै सरल छ। तपाईले माथिको कोड सेक्सनमा देख्न सक्नुहुन्छ, थिम() प्रकार्यसँग धेरै मुख्य बिन्दुहरू छन्। तिनीहरू आवश्यक छन् ताकि सबै तत्वहरू बिना समस्या एनिमेट हुन्छन्। आवश्यक भएमा ती मध्ये केही प्रदर्शन नहुन सक्छ। उदाहरण: ठाडो ग्रिड रेखाहरू र कथाहरू मात्र कोरिएका छन्, तर अक्ष शीर्षकहरू र धेरै अन्य घटकहरू क्षेत्रबाट हटाइएका छन्।

एनिमेसन

यहाँ मुख्य प्रकार्य transition_states() हो, यसले अलग-अलग स्थिर ग्राफहरू सँगै स्टिच गर्दछ। view_follow() ग्रिड रेखाहरू कोर्न प्रयोग गरिन्छ।

anim = staticplot + transition_states(year, transition_length = 4, state_length = 1) +
view_follow(fixed_x = TRUE) +
labs(title = 'GDP per Year : {closest_state}',
subtitle = "Top 10 Countries",
caption = "GDP in Billions USD | Data Source: World Bank Data")

रेन्डरिंग

एक पटक एनिमेसन सिर्जना र एनिम वस्तुमा भण्डारण भएपछि, यो एनिमेट() प्रकार्य प्रयोग गरेर रेन्डर गर्ने समय हो। animate() मा प्रयोग गरिएको रेन्डरर आवश्यक आउटपुट फाइलको प्रकारको आधारमा फरक हुन सक्छ।

GIF

# For GIF

animate(anim, 200, fps = 20, width = 1200, height = 1000,
renderer = gifski_renderer("gganim.gif"))


MP4

# For MP4

animate(anim, 200, fps = 20, width = 1200, height = 1000,
renderer = ffmpeg_renderer()) -> for_mp4

anim_save("animation.mp4", animation = for_mp4 )

परिणाम

तपाईं देख्न सक्नुहुन्छ, केहि जटिल छैन। सम्पूर्ण परियोजना मा उपलब्ध छ मेरो GitHub, तपाईं यसलाई उपयुक्त देख्नुहुन्छ प्रयोग गर्न सक्नुहुन्छ।

Skillbox सिफारिस गर्दछ:

• दुई वर्षे व्यावहारिक पाठ्यक्रम "म एक प्रो वेब विकासकर्ता हुँ".
• अनलाइन कोर्स "स्क्र्याचबाट C# विकासकर्ता".
• एक वर्षको व्यावहारिक पाठ्यक्रम "0 देखि PRO मा PHP विकासकर्ता".

स्रोत: www.habr.com