Pivot Table dengan R

Pivot table dengan R

Siapa dari kita yang nggak pernah menggunakan fasilitas pivot table di excel? Mungkin banyak di antara kita yang telah mengenal bahkan familier dengan fasilitas yang disediakan excel satu ini. Pivot table banyak dimanfaatkan untuk keperluan olah data secara cepat dan praktis. Kita hanya berbekal drag and drop setiap variabel yang dipivotkan sudah menjadi sebuah tabel yang teragregasi secara otomatis dan memenuhi segala keperluan yang mendesak.

Di excel sendiri, kita sebenarnya tidak perlu berpikir panjang apalagi susah payah membangun code. Namun, dalam rangka membangun logika dan pemahaman terhadap pivot table itulah yang menjadikan saya sedikit berbagi gimana sih caranya menerapkan pivot table  di R? Kalau di excel, secara gamblang digambarkan berikut:

Pivot table di excel

Lantas, bagaimana kalau di R? Ya, di R kita masih memerlukan sejumlah langka untuk membuat sebuah tabel atau data menjadi pivit table. Sebelum menerapkan pivot table, terlebih dahulu kita pastikan bahwa package dplyr telah terinstal dan aktif melalui fungsi library(dplyr). Baru kita membuat pivot dengan sedikit code dibubuhi dengan pipe (%>%) yang menunjukkan bahwa instruksi kita berlanjut dari instruksi A ke B, atau seterusnya. Oke, saatnya kita coding untuk mempraktikkannya.

Code:

#Membuat Data Frame
penjualanbuku <- data.frame(tahun = c('2022', '2022', '2021', '2021', '2021', '2021', '2022', '2022', '2020', '2020'),
                 kecamatan = c('Tulangan', 'Tulangan', 'Porong', 'Tulangan', 'Porong', 'Porong', 'Candi', 'Candi', 'Candi', 'Tulangan'),
                 penjualan = c(12, 18, 21, 22, 34, 29, 38, 36, 34, 32))

#Melihat Data Frame
penjualanbuku

Hasil:

  tahun kecamatan penjualan
1   2022  Tulangan        12
2   2022  Tulangan        18
3   2021    Porong        21
4   2021  Tulangan        22
5   2021    Porong        34
6   2021    Porong        29
7   2022     Candi        38
8   2022     Candi        36
9   2020     Candi        34
10  2020  Tulangan        32

Code:

#mengaktifkan package dplyr
library(dplyr)

#Menemukan Jumlah Penjualan Buku menurut Tahun
penjualanbuku %>%
  group_by(tahun) %>%
  summarize(jumlah_penjualan = sum(penjualan))

Hasil:

tahun jumlah_penjualan

2020             66

2021            106

2022            104

Code:

#Menemukan Rata-rata Penjualan Buku Menurut Kecamatan
penjualanbuku %>%
  group_by(kecamatan) %>%
  summarise(ratarata_penjualan = mean(penjualan))

Hasil:

kecamatan ratarata_penjualan

Candi                    36

Porong                  28

Tulangan               21

Code:

#Menemukan Standar Deviasi Penjualan Menurut Kecamatan
penjualanbuku %>%
  group_by(kecamatan) %>%
  summarise(sd_penjualan = sd(penjualan))

Hasil:

kecamatan sd_penjualan

Candi                     2

Porong                6.56

Tulangan             8.41

Code:

#Menemukan Kecamatan mana yang Paling Homogen penjualannya
penjualanbuku %>%
  group_by(kecamatan) %>%
  summarise(KV = (sd(penjualan)/mean(penjualan)))

Hasil:

kecamatan           KV

Candi                 0.0556

Porong               0.234

Tulangan            0.400

Terlihat bahwa penjualan Kecamatan Candi relatif homogen dibandingkan 2 kecamatan lainnya.

Oke, demikian sedikit ulasan bagaimana kita menerapkan pivot table di R sebagaimana pivot table di excel. Jangan lupa untuk share, tanya-tanya di kolom komentar, dan menyimak unggahan berikutnya. Semoga bermanfaat.