R का उपयोग करके एनिमेटेड हिस्टोग्राम बनाएं

एनिमेटेड हिस्टोग्राम जो आप किसी भी साइट पर एक प्रकाशन में सीधे एम्बेड कर सकते हैं तेजी से लोकप्रिय हो रहे हैं। वे एक निश्चित समय के लिए किसी भी विशेषताओं में परिवर्तन की गतिशीलता को प्रदर्शित करते हैं और इसे स्पष्ट रूप से करते हैं। आइए देखें कि आर और यूनिवर्सल पैकेज का उपयोग करके उन्हें कैसे बनाया जाए।

स्किलबॉक्स सिफारिश करता है: स्क्रैच हैंड-ऑन कोर्स से पायथन डेवलपर ।

हम आपको याद दिलाते हैं: "हैबर" के सभी पाठकों के लिए - "हैबर" प्रोमो कोड का उपयोग करके किसी भी स्किलबॉक्स कोर्स के लिए पंजीकरण करते समय 10,000 रूबल की छूट।

संकुल

हमें R में पैकेज चाहिए:

• ggplot2
• gganimate

ये दोनों आवश्यक हैं। इसके अलावा, डेटा को प्रबंधित करने के लिए tidyverse, चौकीदार और तराजू की आवश्यकता होती है, क्रमशः सरणी, और प्रारूप को साफ़ करें।

डेटा

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

इसकी जानकारी क्या है? नमूने में कई वर्षों में (2000 से 2017 तक) अधिकांश देशों की जीडीपी शामिल है।

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

हम आवश्यक डेटा प्रारूप तैयार करने के लिए नीचे दिए गए कोड का उपयोग करेंगे। हम कॉलम नामों को साफ़ करते हैं, संख्याओं को संख्या प्रारूप में बदलते हैं, और डेटा को इकट्ठा () फ़ंक्शन का उपयोग करके परिवर्तित करते हैं। प्राप्त होने वाला सभी भविष्य के उपयोग के लिए 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 का उपयोग करके प्रासंगिक हिस्टोग्राम का एक पूरा सेट बनाना।
• स्थिर histograms का उपयोग वांछित मापदंडों के साथ 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() 

स्टेटिक हिस्टोग्राम का निर्माण

अब हमारे पास वांछित प्रारूप में डेटा पैकेट है, हम स्थैतिक हिस्टोग्राम को चित्रित करना शुरू करते हैं। मूल जानकारी - चयनित समय अंतराल के लिए अधिकतम जीडीपी वाले शीर्ष 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 का उपयोग करके ग्राफ़ बनाना काफी सरल है। जैसा कि आप ऊपर दिए गए कोड अनुभाग में देख सकते हैं, विषय () फ़ंक्शन के साथ कुछ प्रमुख बिंदु हैं। वे आवश्यक हैं ताकि सभी तत्व समस्याओं के बिना एनिमेटेड हों। यदि आवश्यक हो तो उनमें से कुछ प्रदर्शित नहीं हो सकते हैं। उदाहरण: केवल ऊर्ध्वाधर ग्रिड लाइनें और किंवदंतियां खींची जाती हैं, लेकिन कुल्हाड़ियों के शीर्ष और कुछ और घटकों को साइट से हटा दिया जाता है।

एनीमेशन

यहाँ पर मुख्य कार्य ट्रांजीशन_स्टेट्स () है, यह अलग-अलग स्थैतिक रेखांकन को अलग करता है। 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") 

प्रतिपादन

एनीमेशन को ऑब्जेक्ट में बनाए और सहेजे जाने के बाद, यह चेतन () फ़ंक्शन का उपयोग करके कल्पना करने का समय है। चेतन में प्रयुक्त रेंडर () आवश्यक आउटपुट फ़ाइल के प्रकार के आधार पर भिन्न हो सकते हैं।

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 में उपलब्ध है , जैसा कि आप फिट देखते हैं, आप इसका उपयोग कर सकते हैं।

स्किलबॉक्स अनुशंसा करता है:

• दो वर्षीय व्यावहारिक पाठ्यक्रम "मैं एक प्रो वेब डेवलपर हूं । "
• ऑनलाइन पाठ्यक्रम "सी # डेवलपर खरोंच से । "
• व्यावहारिक वार्षिक पाठ्यक्रम "पीएचपी-डेवलपर 0 से प्रो तक" ।