Dosen Pengampu : Prof. Dr. Suhartono, M.Kom

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Prodi : Teknik Informatika

Pengertian Pivot

Pivot Table adalah fitur Microsoft Excel yang paling powerful memungkinkan pengguna mengambil informasi dengan cepat dari kumpulan data dalam jumlah besar. Pivot Table dapat digunakan sebagai alternatif untuk melakukan analisis data terkait mengelompokkan dan meringkas data. Dengan menggunakan Pivot Table, pengguna dapat menghemat waktu secara signifikan.
library(readxl)
datainflow2 <- read_excel(path = "datainflow2.xlsx")
datainflow2
## # A tibble: 3 x 13
##   Provinsi      Januari Februari Maret April   Mei  Juni  Juli Agustus September
##   <chr>           <dbl>    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl>     <dbl>
## 1 Bali             762.     915.  604.  586.  728. 587.   597.    722.      871.
## 2 Nusa Tenggar~    551.     412.  245.  157.  264. 230.   390.    473.      216.
## 3 Nusa Tenggar~    520.     400.  210.  189.  155.  96.6  221.    275.      182.
## # ... with 3 more variables: Oktober <dbl>, November <dbl>, Desember <dbl>
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Kasus Data Inflow Uang Kartal di Bali Nusra Tahun 2012

datalongerbali <- datainflow2 %>% 
  pivot_longer(!Provinsi, names_to = "Bulan", values_to = "Kasus")
datalongerbali
## # A tibble: 36 x 3
##    Provinsi Bulan     Kasus
##    <chr>    <chr>     <dbl>
##  1 Bali     Januari    762.
##  2 Bali     Februari   915.
##  3 Bali     Maret      604.
##  4 Bali     April      586.
##  5 Bali     Mei        728.
##  6 Bali     Juni       587.
##  7 Bali     Juli       597.
##  8 Bali     Agustus    722.
##  9 Bali     September  871.
## 10 Bali     Oktober    622.
## # ... with 26 more rows

Pivot Data Inflow Uang Kartal di Bali Nusra Berdasarkan Kasus Tahun 2012

library(dplyr)
balinusra <- select(datalongerbali, Bulan, Kasus)
balinusra
## # A tibble: 36 x 2
##    Bulan     Kasus
##    <chr>     <dbl>
##  1 Januari    762.
##  2 Februari   915.
##  3 Maret      604.
##  4 April      586.
##  5 Mei        728.
##  6 Juni       587.
##  7 Juli       597.
##  8 Agustus    722.
##  9 September  871.
## 10 Oktober    622.
## # ... with 26 more rows

Pivot Data Inflow Uang Kartal di Nusa Tenggara Timur Berdasarkan Kasus Tahun 2012

library(dplyr)
bali <- datalongerbali  %>%
    filter(Provinsi == 'Nusa Tenggara Timur') %>%
    select('Bulan', 'Provinsi', 'Kasus')
bali
## # A tibble: 12 x 3
##    Bulan     Provinsi            Kasus
##    <chr>     <chr>               <dbl>
##  1 Januari   Nusa Tenggara Timur 520. 
##  2 Februari  Nusa Tenggara Timur 400. 
##  3 Maret     Nusa Tenggara Timur 210. 
##  4 April     Nusa Tenggara Timur 189. 
##  5 Mei       Nusa Tenggara Timur 155. 
##  6 Juni      Nusa Tenggara Timur  96.6
##  7 Juli      Nusa Tenggara Timur 221. 
##  8 Agustus   Nusa Tenggara Timur 275. 
##  9 September Nusa Tenggara Timur 182. 
## 10 Oktober   Nusa Tenggara Timur 182. 
## 11 November  Nusa Tenggara Timur 190. 
## 12 Desember  Nusa Tenggara Timur 114.

Pivot Data Inflow Uang Kartal di Nusa Tenggara Barat Berdasarkan Kasus di Bulan September Tahun 2012

NTB <- datalongerbali %>%
  filter(Provinsi == 'Nusa Tenggara Barat', Bulan == 'September') %>%
 select('Bulan', 'Provinsi', 'Kasus')
NTB
## # A tibble: 1 x 3
##   Bulan     Provinsi            Kasus
##   <chr>     <chr>               <dbl>
## 1 September Nusa Tenggara Barat  216.

Visualisasi Pivot Data Uang Kartal di Bali Nusra Berdasarkan Provinsi Tahun 2012

ggplot(data = datalongerbali, mapping = aes(x = Bulan, y = Kasus)) +
  geom_point() +
  facet_wrap( ~ Provinsi) +
  theme(axis.text.x = element_text(angle = 90))

Visualisasi Pivot Data Uang Kartal di Bali Nusra Setiap Bulan Pada Tahun 2012

ggplot(data = datalongerbali, mapping = aes(x = Provinsi, y = Kasus)) +
  geom_point() +
  facet_wrap( ~ Bulan) +
  theme(axis.text.x = element_text(angle = 90))