R ব্যবহার করে অ্যানিমেটেড হিস্টোগ্রাম তৈরি করুন

অ্যানিমেটেড বার চার্ট যা সরাসরি যেকোনো ওয়েবসাইটে একটি পোস্টে এম্বেড করা যায় ক্রমশ জনপ্রিয় হয়ে উঠছে। তারা একটি নির্দিষ্ট সময়ের মধ্যে যে কোনও বৈশিষ্ট্যের পরিবর্তনের গতিশীলতা প্রদর্শন করে এবং এটি স্পষ্টভাবে করে। আসুন দেখি কিভাবে R এবং জেনেরিক প্যাকেজ ব্যবহার করে সেগুলি তৈরি করা যায়।

Skillbox সুপারিশ করে: ব্যবহারিক কোর্স "শুরু থেকে পাইথন বিকাশকারী".

আমরা মনে করিয়ে দিচ্ছি: "Habr"-এর সকল পাঠকদের জন্য - "Habr" প্রচারমূলক কোড ব্যবহার করে যেকোনো Skillbox কোর্সে নথিভুক্ত করার সময় 10 রুবেল ছাড়।

প্যাকেজ

আমাদের আর প্যাকেজ দরকার:

• ggplot2
• গগনিমেট

এই দুটি অত্যন্ত প্রয়োজনীয়। উপরন্তু, tidyverse, দারোয়ান এবং স্কেল ডেটা পরিচালনা করতে, অ্যারে পরিষ্কার করতে এবং সেই অনুযায়ী বিন্যাস করতে হবে।

উপাত্ত

এই প্রকল্পে আমরা যে মূল ডেটাসেট ব্যবহার করব তা বিশ্বব্যাংকের ওয়েবসাইট থেকে ডাউনলোড করা হয়েছে। এখানে তারা - বিশ্বব্যাংক ডেটা. একই ডেটা, যদি আপনার প্রয়োজন হয় রেডিমেড, থেকে ডাউনলোড করা যেতে পারে প্রকল্প ফোল্ডার.

এটা কি ধরনের তথ্য? নমুনায় বেশিরভাগ দেশের জিডিপি মান রয়েছে কয়েক বছর ধরে (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 ব্যবহার করে প্রকৃত হিস্টোগ্রামের একটি সম্পূর্ণ সেট প্লট করা।
• 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 ব্যবহার করে প্লট তৈরি করা খুবই সহজ। আপনি উপরের কোড বিভাগে দেখতে পাচ্ছেন, থিম() ফাংশনের সাথে বেশ কয়েকটি মূল পয়েন্ট রয়েছে। এগুলি প্রয়োজনীয় যাতে সমস্ত উপাদান সমস্যা ছাড়াই প্রাণবন্ত হয়। প্রয়োজনে তাদের কিছু প্রদর্শিত নাও হতে পারে। উদাহরণ: শুধুমাত্র উল্লম্ব গ্রিড লাইন এবং কিংবদন্তি আঁকা হয়, কিন্তু অক্ষ শিরোনাম এবং অন্যান্য অনেক উপাদান এলাকা থেকে সরানো হয়।

অ্যানিমেশন

এখানে মূল ফাংশন হল 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() এ ব্যবহৃত রেন্ডারার প্রয়োজনীয় আউটপুট ফাইলের ধরনের উপর নির্ভর করে ভিন্ন হতে পারে।

জিআইএফ

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

ফল

আপনি দেখতে পাচ্ছেন, কিছুই জটিল নয়। সম্পূর্ণ প্রকল্প পাওয়া যায় আমার গিটহাব, আপনি এটি ব্যবহার করতে পারেন যেভাবে আপনি উপযুক্ত দেখেন।

Skillbox সুপারিশ করে:

• দুই বছরের ব্যবহারিক কোর্স "আমি একজন প্রো ওয়েব ডেভেলপার".
• অনলাইন কোর্স "স্ক্র্যাচ থেকে C# বিকাশকারী".
• ব্যবহারিক বছরের কোর্স "0 থেকে PRO পর্যন্ত পিএইচপি বিকাশকারী".

উত্স: www.habr.com