Animasi ggplot2 dan Ploty di Program R

Halo semua kembali lagi dengan saya, pada kesempatan kali ini saya mau membagi ilmu bagaimana membuat visualisasi animasi ggplot2 di program R.

ggplot2 adalah package dari program R yang biasanya digunakan untuk menvisualisasikan data. Sebelumnya saya akan menjelaskan sedikit apa itu data visualisasi? Data visualisasi adalah sebuah teknik untuk menyajikan data secara visual melaui grafik, chart, peta agar tampilan menarik, jadi tujuannya untuk mengkomunikasikan informasi secara jelas kepada pengguna lewat visualisasi. Langsung aja ya ketutorialnya.

• Langkah Pertama Install dulu Library dibawah ini

library(openxlsx)
library(plotly)
library(ggplot2)

• Selanjutnya input data

gapminder <- read.xlsx(“F:\\Davis\\UTS\\gapminder.xlsx”, sheet = 1, startRow = 1, colNames = TRUE,)
View(gapminder)

yang diblock hitam itu harus sesuai file yang anda simpan di laptop/pc.

• Mengambil Variabel

country.vec <- gapminder [,1]
country.vec

• Membuat Pengulangan dengan variabel panel

country_panel <- c()
for (i in 1:170) {
 x = rep(country.vec[i], 47)
 country_panel <- append(country_panel, x)
}
View(country_panel)

years_panel <- rep(1970:2016, 170)
years_panel

• Mengambil data variabel

gdp_panel <- c()
for (i in 1:170) {
 x = gapminder[i,]
 x = x[-c(1:3)]
 x = t(x)
gdp_panel <- append(gdp_panel, x)
}
gdp_panel

• Mengambil data sheet untuk populasi

gapminder1 <- read.xlsx(“F:\\Davis\\UTS\\gapminder.xlsx”, sheet = 2, startRow = 1, colNames = TRUE,)
View(gapminder1)

pop_panel <- c()
for (i in 1:170) {
 x = gapminder1[i,]
 x = x[-c(1:3)]
 x = t(x)
 pop_panel <- append(pop_panel, x)
}
pop_panel

• Mengambil data sheet 3

gapminder2 <- read.xlsx(“F:\\Davis\\UTS\\gapminder.xlsx”, sheet = 3, startRow = 1, colNames = TRUE,)
View(gapminder2)

life_panel <- c()
for (i in 1:170) {
 x = gapminder2[i,]
 x = x[-c(1:3)]
 x = t(x)
 life_panel <- append(life_panel, x)
}
life_panel

• Mengambil Variabel Region

gapminder3 <- read.xlsx(“F:\\Davis\\UTS\\gapminder.xlsx”, sheet = 4, startRow = 1, colNames = TRUE,)
View(gapminder3)

region.vec <- gapminder3 [,6]
region.vec

region_panel <- c()
for (i in 1:170) {
 x = rep(region.vec[i], 47)
 region_panel <- append(region_panel, x)
}
View(region_panel)

• Membuat Data Frame

gapminder_frame <- data.frame(region_panel,country_panel, years_panel, gdp_panel, pop_panel, life_panel)
View(gapminder_frame)

• Membuat Visual

gap <- ggplot(gapminder_frame, aes(x = log(gdp_panel), y = life_panel, color = country_panel)) + geom_point(aes(shape = region_panel,size = pop_panel,frame = years_panel))
gap
ggplotly(gap)

• Hasilnya akan seperti pada dibawah ini
• 
  

Nah mungkin saja yang dapat saya sampaikan jangn lupa dishare dan di komentar jika ada kesalahan pada penjelasan diatas.Terima Kasih