បង្កើតអ៊ីស្តូក្រាមដែលមានចលនាដោយប្រើ R

គំនូសតាងរបារដែលមានចលនាដែលអាចបង្កប់ដោយផ្ទាល់ទៅក្នុងប្រកាសនៅលើគេហទំព័រណាមួយកំពុងទទួលបានប្រជាប្រិយភាពកាន់តែខ្លាំងឡើង។ ពួកគេបង្ហាញថាមវន្តនៃការផ្លាស់ប្តូរនៅក្នុងលក្ខណៈណាមួយក្នុងរយៈពេលជាក់លាក់មួយ ហើយធ្វើវាយ៉ាងច្បាស់។ តោះមើលពីរបៀបបង្កើតពួកវាដោយប្រើ R និងកញ្ចប់ទូទៅ។

Skillbox ណែនាំ៖ វគ្គសិក្សាជាក់ស្តែង "អ្នកអភិវឌ្ឍន៍ Python ពីដំបូង".

យើងរំលឹក៖ សម្រាប់អ្នកអានទាំងអស់នៃ "Habr" - ការបញ្ចុះតម្លៃ 10 rubles នៅពេលចុះឈ្មោះក្នុងវគ្គសិក្សា Skillbox ណាមួយដោយប្រើលេខកូដផ្សព្វផ្សាយ "Habr" ។

កញ្ចប់

យើងត្រូវការកញ្ចប់ក្នុង R:

• ggplot2
• gganimate

ទាំងពីរនេះគឺចាំបាច់បំផុត។ លើសពីនេះទៀត tidyverse, janitor និង scales នឹងត្រូវបានទាមទារដើម្បីគ្រប់គ្រងទិន្នន័យ សម្អាត array និង format ទៅតាមនោះ។

ទិន្នន័យ

សំណុំទិន្នន័យដើមដែលយើងនឹងប្រើក្នុងគម្រោងនេះត្រូវបានទាញយកពីគេហទំព័ររបស់ធនាគារពិភពលោក។ នៅទីនេះពួកគេ - ទិន្នន័យធនាគារពិភពលោក. ទិន្នន័យដូចគ្នា ប្រសិនបើអ្នកត្រូវការវារួចរាល់ អាចត្រូវបានទាញយកពី ថតគម្រោង.

តើព័ត៌មានប្រភេទនេះជាអ្វី? គំរូ​នេះ​មាន​តម្លៃ GDP របស់​ប្រទេស​ភាគច្រើន​ជាច្រើន​ឆ្នាំ (ពី​ឆ្នាំ 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 ។
• ធ្វើចលនាអ៊ីស្តូក្រាមឋិតិវន្តជាមួយនឹងប៉ារ៉ាម៉ែត្រដែលចង់បានដោយប្រើ 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 ដែលមាន GDP អតិបរមាសម្រាប់ចន្លោះពេលដែលបានជ្រើសរើស។ យើងបង្កើតក្រាហ្វសម្រាប់ឆ្នាំនីមួយៗ។

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 គឺសាមញ្ញណាស់។ ដូចដែលអ្នកអាចឃើញនៅក្នុងផ្នែកកូដខាងលើ មានចំណុចសំខាន់ៗជាច្រើនដែលមានមុខងារ theme()។ ពួកវាចាំបាច់ដើម្បីឱ្យធាតុទាំងអស់មានចលនាដោយគ្មានបញ្ហា។ ពួកវាខ្លះប្រហែលជាមិនត្រូវបានបង្ហាញប្រសិនបើចាំបាច់។ ឧទាហរណ៍៖ មានតែបន្ទាត់ក្រឡាចត្រង្គបញ្ឈរ និងរឿងព្រេងប៉ុណ្ណោះដែលត្រូវបានគូរ ប៉ុន្តែចំណងជើងអ័ក្ស និងសមាសធាតុមួយចំនួនផ្សេងទៀតត្រូវបានដកចេញពីតំបន់នោះ។

ចលនា

មុខងារសំខាន់នៅទីនេះគឺ 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()។ កម្មវិធី renderer ដែលប្រើក្នុង 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 ណែនាំ៖

• វគ្គសិក្សាជាក់ស្តែងរយៈពេលពីរឆ្នាំ "ខ្ញុំជាអ្នកបង្កើតគេហទំព័រ PRO".
• វគ្គសិក្សាតាមអ៊ីនធឺណិត "អ្នកអភិវឌ្ឍន៍ C# ពីដំបូង".
• វគ្គសិក្សាជាក់ស្តែងឆ្នាំ "អ្នកអភិវឌ្ឍន៍ PHP ពី 0 ដល់ PRO".

ប្រភព: www.habr.com