R ഉപയോഗിച്ച് ആനിമേറ്റഡ് ഹിസ്റ്റോഗ്രാമുകൾ സൃഷ്ടിക്കുക

ഏത് വെബ്‌സൈറ്റിലെയും ഒരു പോസ്റ്റിലേക്ക് നേരിട്ട് ഉൾച്ചേർക്കാവുന്ന ആനിമേറ്റഡ് ബാർ ചാർട്ടുകൾ കൂടുതൽ ജനപ്രിയമായിക്കൊണ്ടിരിക്കുകയാണ്. അവർ ഒരു നിശ്ചിത സമയത്തിനുള്ളിൽ ഏതെങ്കിലും സ്വഭാവസവിശേഷതകളിലെ മാറ്റങ്ങളുടെ ചലനാത്മകത പ്രദർശിപ്പിക്കുകയും ഇത് വ്യക്തമായി ചെയ്യുകയും ചെയ്യുന്നു. ആർ, ജനറിക് പാക്കേജുകൾ ഉപയോഗിച്ച് അവ എങ്ങനെ സൃഷ്ടിക്കാമെന്ന് നോക്കാം.

സ്കിൽബോക്സ് ശുപാർശ ചെയ്യുന്നു: പ്രായോഗിക കോഴ്സ് "ആദ്യം മുതൽ പൈത്തൺ ഡെവലപ്പർ".

ഞങ്ങൾ ഓർമ്മിപ്പിക്കുന്നു: "Habr"-ന്റെ എല്ലാ വായനക്കാർക്കും - "Habr" പ്രൊമോഷണൽ കോഡ് ഉപയോഗിച്ച് ഏതെങ്കിലും സ്കിൽബോക്സ് കോഴ്സിൽ ചേരുമ്പോൾ 10 റൂബിൾസ് കിഴിവ്.

പാക്കേജുകൾ

ഞങ്ങൾക്ക് R-ൽ പാക്കേജുകൾ ആവശ്യമാണ്:

• ggplot2
• ഗാനിമേറ്റ്

ഇവ രണ്ടും വളരെ അത്യാവശ്യമാണ്. കൂടാതെ, ഡാറ്റ കൈകാര്യം ചെയ്യുന്നതിനും അറേ വൃത്തിയാക്കുന്നതിനും അതിനനുസരിച്ച് ഫോർമാറ്റ് ചെയ്യുന്നതിനും ടൈഡൈവേഴ്സ്, ജാനിറ്റർ, സ്കെയിലുകൾ എന്നിവ ആവശ്യമാണ്.

ഡാറ്റ

ഈ പ്രോജക്റ്റിൽ ഞങ്ങൾ ഉപയോഗിക്കുന്ന യഥാർത്ഥ ഡാറ്റാസെറ്റ് ലോകബാങ്ക് വെബ്സൈറ്റിൽ നിന്ന് ഡൗൺലോഡ് ചെയ്തതാണ്. അവർ ഇതാ - ലോകബാങ്ക് ഡാറ്റ. അതേ ഡാറ്റ, നിങ്ങൾക്ക് റെഡിമെയ്ഡ് വേണമെങ്കിൽ, അതിൽ നിന്ന് ഡൗൺലോഡ് ചെയ്യാം പ്രോജക്റ്റ് ഫോൾഡറുകൾ.

ഇത് ഏത് തരത്തിലുള്ള വിവരമാണ്? സാമ്പിളിൽ നിരവധി വർഷങ്ങളായി (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 ഉപയോഗിച്ച് യഥാർത്ഥ ഹിസ്റ്റോഗ്രാമുകളുടെ പൂർണ്ണമായ ഒരു സെറ്റ് പ്ലോട്ട് ചെയ്യുന്നു.
• ഗ്ഗാനിമേറ്റ് ഉപയോഗിച്ച് ആവശ്യമുള്ള പാരാമീറ്ററുകൾ ഉപയോഗിച്ച് സ്റ്റാറ്റിക് ഹിസ്റ്റോഗ്രാമുകൾ ആനിമേറ്റ് ചെയ്യുക.

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")

റെൻഡറിംഗ്

ആനിമേഷൻ സൃഷ്ടിച്ച് ആനിം ഒബ്‌ജക്റ്റിൽ സംഭരിച്ചുകഴിഞ്ഞാൽ, അത് ആനിമേറ്റ്() ഫംഗ്‌ഷൻ ഉപയോഗിച്ച് റെൻഡർ ചെയ്യാനുള്ള സമയമാണ്. ആവശ്യമായ ഔട്ട്‌പുട്ട് ഫയലിന്റെ തരം അനുസരിച്ച് ആനിമേറ്റിൽ() ഉപയോഗിക്കുന്ന റെൻഡറർ വ്യത്യസ്തമായിരിക്കും.

ജിഫ്

# 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, നിങ്ങൾക്ക് അനുയോജ്യമെന്ന് തോന്നുന്നത് പോലെ നിങ്ങൾക്ക് ഇത് ഉപയോഗിക്കാം.

സ്കിൽബോക്സ് ശുപാർശ ചെയ്യുന്നു:

• രണ്ടുവർഷത്തെ പ്രാക്ടിക്കൽ കോഴ്സ് "ഞാൻ ഒരു PRO വെബ് ഡെവലപ്പർ ആണ്".
• ഓൺലൈൻ കോഴ്സ് "ആദ്യം മുതൽ C# ഡവലപ്പർ".
• പ്രായോഗിക വർഷ കോഴ്സ് "0 മുതൽ PRO വരെയുള്ള PHP ഡവലപ്പർ".

അവലംബം: www.habr.com