ਆਰ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਐਨੀਮੇਟਡ ਹਿਸਟੋਗ੍ਰਾਮ ਬਣਾਓ

ਐਨੀਮੇਟਡ ਬਾਰ ਚਾਰਟ ਜੋ ਕਿਸੇ ਵੀ ਵੈਬਸਾਈਟ 'ਤੇ ਇੱਕ ਪੋਸਟ ਵਿੱਚ ਸਿੱਧੇ ਏਮਬੇਡ ਕੀਤੇ ਜਾ ਸਕਦੇ ਹਨ ਤੇਜ਼ੀ ਨਾਲ ਪ੍ਰਸਿੱਧ ਹੋ ਰਹੇ ਹਨ। ਉਹ ਇੱਕ ਨਿਸ਼ਚਿਤ ਸਮੇਂ ਵਿੱਚ ਕਿਸੇ ਵੀ ਵਿਸ਼ੇਸ਼ਤਾ ਵਿੱਚ ਤਬਦੀਲੀਆਂ ਦੀ ਗਤੀਸ਼ੀਲਤਾ ਨੂੰ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਦੇ ਹਨ ਅਤੇ ਇਹ ਸਪਸ਼ਟ ਤੌਰ ਤੇ ਕਰਦੇ ਹਨ। ਆਉ ਵੇਖੀਏ ਕਿ R ਅਤੇ ਜੈਨਰਿਕ ਪੈਕੇਜਾਂ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਉਹਨਾਂ ਨੂੰ ਕਿਵੇਂ ਬਣਾਇਆ ਜਾਵੇ।

ਸਕਿੱਲਬਾਕਸ ਸਿਫ਼ਾਰਿਸ਼ ਕਰਦਾ ਹੈ: ਪ੍ਰੈਕਟੀਕਲ ਕੋਰਸ "ਸਕ੍ਰੈਚ ਤੋਂ ਪਾਈਥਨ ਡਿਵੈਲਪਰ".

ਅਸੀਂ ਯਾਦ ਦਿਵਾਉਂਦੇ ਹਾਂ: "Habr" ਦੇ ਸਾਰੇ ਪਾਠਕਾਂ ਲਈ - "Habr" ਪ੍ਰਚਾਰ ਕੋਡ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਕਿਸੇ ਵੀ ਸਕਿੱਲਬਾਕਸ ਕੋਰਸ ਵਿੱਚ ਦਾਖਲਾ ਲੈਣ ਵੇਲੇ 10 ਰੂਬਲ ਦੀ ਛੋਟ।

ਪੈਕੇਜ

ਸਾਨੂੰ ਆਰ ਵਿੱਚ ਪੈਕੇਜਾਂ ਦੀ ਲੋੜ ਹੈ:

• ggplot2
• gganimate

ਇਹ ਦੋਵੇਂ ਅਤਿ ਜ਼ਰੂਰੀ ਹਨ। ਇਸ ਤੋਂ ਇਲਾਵਾ, ਡੇਟਾ ਦਾ ਪ੍ਰਬੰਧਨ ਕਰਨ, ਐਰੇ ਨੂੰ ਸਾਫ਼ ਕਰਨ ਅਤੇ ਉਸ ਅਨੁਸਾਰ ਫਾਰਮੈਟ ਕਰਨ ਲਈ tidyverse, janitor ਅਤੇ ਸਕੇਲਾਂ ਦੀ ਲੋੜ ਹੋਵੇਗੀ।

ਡਾਟਾ

ਅਸਲ ਡੇਟਾਸੈਟ ਜੋ ਅਸੀਂ ਇਸ ਪ੍ਰੋਜੈਕਟ ਵਿੱਚ ਵਰਤਾਂਗੇ ਉਹ ਵਿਸ਼ਵ ਬੈਂਕ ਦੀ ਵੈੱਬਸਾਈਟ ਤੋਂ ਡਾਊਨਲੋਡ ਕੀਤਾ ਗਿਆ ਹੈ। ਉਹ ਇੱਥੇ ਹਨ - ਵਿਸ਼ਵ ਬੈਂਕ ਡੇਟਾ. ਉਹੀ ਡੇਟਾ, ਜੇਕਰ ਤੁਹਾਨੂੰ ਇਸਦੀ ਲੋੜ ਹੈ, ਤਾਂ ਇਸ ਤੋਂ ਡਾਊਨਲੋਡ ਕੀਤਾ ਜਾ ਸਕਦਾ ਹੈ ਪ੍ਰੋਜੈਕਟ ਫੋਲਡਰ.

ਇਹ ਕਿਸ ਕਿਸਮ ਦੀ ਜਾਣਕਾਰੀ ਹੈ? ਨਮੂਨੇ ਵਿੱਚ ਕਈ ਸਾਲਾਂ (2000 ਤੋਂ 2017 ਤੱਕ) ਲਈ ਜ਼ਿਆਦਾਤਰ ਦੇਸ਼ਾਂ ਦਾ ਜੀਡੀਪੀ ਮੁੱਲ ਸ਼ਾਮਲ ਹੁੰਦਾ ਹੈ।

ਡਾਟਾ ਪ੍ਰੋਸੈਸਿੰਗ

ਅਸੀਂ ਲੋੜੀਂਦੇ ਡੇਟਾ ਫਾਰਮੈਟ ਨੂੰ ਤਿਆਰ ਕਰਨ ਲਈ ਹੇਠਾਂ ਪੋਸਟ ਕੀਤੇ ਕੋਡ ਦੀ ਵਰਤੋਂ ਕਰਾਂਗੇ। ਅਸੀਂ ਕਾਲਮ ਦੇ ਨਾਮ ਸਾਫ਼ ਕਰਦੇ ਹਾਂ, ਨੰਬਰਾਂ ਨੂੰ ਇੱਕ ਨੰਬਰ ਫਾਰਮੈਟ ਵਿੱਚ ਬਦਲਦੇ ਹਾਂ, ਅਤੇ 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 ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਅਸਲ ਹਿਸਟੋਗ੍ਰਾਮਾਂ ਦੇ ਇੱਕ ਪੂਰੇ ਸੈੱਟ ਨੂੰ ਪਲਾਟ ਕਰਨਾ।
• ਗਗਨੀਮੇਟ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਲੋੜੀਂਦੇ ਪੈਰਾਮੀਟਰਾਂ ਨਾਲ ਸਥਿਰ ਹਿਸਟੋਗ੍ਰਾਮਾਂ ਨੂੰ ਐਨੀਮੇਟ ਕਰੋ।

ਅੰਤਮ ਕਦਮ ਹੈ 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 ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਪਲਾਟ ਬਣਾਉਣਾ ਬਹੁਤ ਸੌਖਾ ਹੈ। ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਉਪਰੋਕਤ ਕੋਡ ਭਾਗ ਵਿੱਚ ਦੇਖ ਸਕਦੇ ਹੋ, ਥੀਮ() ਫੰਕਸ਼ਨ ਦੇ ਨਾਲ ਕਈ ਮੁੱਖ ਨੁਕਤੇ ਹਨ। ਉਹ ਜ਼ਰੂਰੀ ਹਨ ਤਾਂ ਜੋ ਸਾਰੇ ਤੱਤ ਬਿਨਾਂ ਕਿਸੇ ਸਮੱਸਿਆ ਦੇ ਐਨੀਮੇਟ ਹੋ ਸਕਣ. ਜੇ ਲੋੜ ਹੋਵੇ ਤਾਂ ਉਹਨਾਂ ਵਿੱਚੋਂ ਕੁਝ ਨੂੰ ਪ੍ਰਦਰਸ਼ਿਤ ਨਹੀਂ ਕੀਤਾ ਜਾ ਸਕਦਾ ਹੈ। ਉਦਾਹਰਨ: ਸਿਰਫ਼ ਲੰਬਕਾਰੀ ਗਰਿੱਡ ਲਾਈਨਾਂ ਅਤੇ ਦੰਤਕਥਾਵਾਂ ਖਿੱਚੀਆਂ ਗਈਆਂ ਹਨ, ਪਰ ਧੁਰੇ ਦੇ ਸਿਰਲੇਖ ਅਤੇ ਕਈ ਹੋਰ ਭਾਗਾਂ ਨੂੰ ਖੇਤਰ ਤੋਂ ਹਟਾ ਦਿੱਤਾ ਗਿਆ ਹੈ।

ਐਨੀਮੇਸ਼ਨ

ਇੱਥੇ ਮੁੱਖ ਫੰਕਸ਼ਨ 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, ਤੁਸੀਂ ਇਸਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ ਜਿਵੇਂ ਤੁਸੀਂ ਫਿੱਟ ਦੇਖਦੇ ਹੋ।

ਸਕਿੱਲਬਾਕਸ ਸਿਫ਼ਾਰਿਸ਼ ਕਰਦਾ ਹੈ:

• ਦੋ ਸਾਲਾ ਪ੍ਰੈਕਟੀਕਲ ਕੋਰਸ "ਮੈਂ ਇੱਕ ਪ੍ਰੋ ਵੈੱਬ ਡਿਵੈਲਪਰ ਹਾਂ".
• Onlineਨਲਾਈਨ ਕੋਰਸ "ਸਕ੍ਰੈਚ ਤੋਂ C# ਡਿਵੈਲਪਰ".
• ਪ੍ਰੈਕਟੀਕਲ ਸਾਲ ਦਾ ਕੋਰਸ "0 ਤੋਂ PRO ਤੱਕ PHP ਡਿਵੈਲਪਰ".

ਸਰੋਤ: www.habr.com