Pivot dan Visualisasi Data Outflow Uang Kartal di Pulau Bali Nusra pada Tahun 2019
Rafi Ronalda Purnama Hakim,Prof.Dr.Suhartono,M.KOM
3/21/2022
Universitas : UIN MAULANA MALIK IBRAHIM MALANG
Jurusan : Teknik Informatika
Pengertian Pivot Table
pivot table adalah ringkasan data yang dikemas dalam tabel interaktif agar memudahkan dan membantu kamu untuk membuat laporan dan menganalisisnya dengan melihat perbandingan data yang kamu miliki.
Singkatnya, gunanya pivot table adalah untuk merangkum, mengelompokkan, mengeksplorasi, mempresentasikan, menghitung, dan menganalisa data.
library(readxl)dataoutflowBalinusra <- read_excel(path = "Outflow2019Balinusra.xlsx")
dataoutflowBalinusra## # A tibble: 4 x 13
## Provinsi Januari Februari Maret April Mei Juni Juli Agustus September
## <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 Bali Nusra 536. 1988. 2969. 3897. 8314. 1086. 3416. 2515. 2264.
## 2 Bali 362. 1288. 2032. 1595. 4132. 682. 1962. 1376. 1406.
## 3 Nusa Tenggar~ 121. 524. 711. 1467. 2777. 235. 511. 574. 657.
## 4 Nusa Tenggar~ 52.4 176. 225. 835. 1404. 169. 943. 565. 201.
## # ... 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 Outflow Uang Kartal di Pulau Bali Nusra pada Tahun 2019
datalongerBalinusra <- dataoutflowBalinusra %>%
pivot_longer(!Provinsi, names_to = "Bulan", values_to = "Kasus")
datalongerBalinusra## # A tibble: 48 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Bali Nusra Januari 536.
## 2 Bali Nusra Februari 1988.
## 3 Bali Nusra Maret 2969.
## 4 Bali Nusra April 3897.
## 5 Bali Nusra Mei 8314.
## 6 Bali Nusra Juni 1086.
## 7 Bali Nusra Juli 3416.
## 8 Bali Nusra Agustus 2515.
## 9 Bali Nusra September 2264.
## 10 Bali Nusra Oktober 2414.
## # ... with 38 more rowsPivot Data Outflow Uang Kartal di Pulau Bali Nusra Berdasarkan Kasus
library(dplyr)Balinusra2 <- select(datalongerBalinusra, Provinsi, Kasus)
Balinusra2## # A tibble: 48 x 2
## Provinsi Kasus
## <chr> <dbl>
## 1 Bali Nusra 536.
## 2 Bali Nusra 1988.
## 3 Bali Nusra 2969.
## 4 Bali Nusra 3897.
## 5 Bali Nusra 8314.
## 6 Bali Nusra 1086.
## 7 Bali Nusra 3416.
## 8 Bali Nusra 2515.
## 9 Bali Nusra 2264.
## 10 Bali Nusra 2414.
## # ... with 38 more rowsKasus Data Outflow Uang Kartal di Provinsi Bali Pada Bulan Januari - Desember 2019
library(dplyr)Bali <- datalongerBalinusra %>%
filter(Provinsi == 'Bali') %>%
select('Provinsi', 'Bulan', 'Kasus')
Bali## # A tibble: 12 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Bali Januari 362.
## 2 Bali Februari 1288.
## 3 Bali Maret 2032.
## 4 Bali April 1595.
## 5 Bali Mei 4132.
## 6 Bali Juni 682.
## 7 Bali Juli 1962.
## 8 Bali Agustus 1376.
## 9 Bali September 1406.
## 10 Bali Oktober 1366.
## 11 Bali November 1482.
## 12 Bali Desember 2970.Kasus Data Outflow Uang Kartal di Provinsi Bali Pada Bulan Januari 2019
Bali2 <- datalongerBalinusra %>%
filter(Provinsi == 'Bali', Bulan == 'Januari') %>%
select('Provinsi', 'Bulan', 'Kasus')
Bali2## # A tibble: 1 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Bali Januari 362.Kasus Data Outflow Uang Kartal di Provinsi Nusa Tenggara Timur Pada Bulan Januari - Desember 2019
library(dplyr)NusaTenggaraTimur <- datalongerBalinusra %>%
filter(Provinsi == 'Nusa Tenggara Timur') %>%
select('Provinsi', 'Bulan', 'Kasus')
NusaTenggaraTimur## # A tibble: 12 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Nusa Tenggara Timur Januari 52.4
## 2 Nusa Tenggara Timur Februari 176.
## 3 Nusa Tenggara Timur Maret 225.
## 4 Nusa Tenggara Timur April 835.
## 5 Nusa Tenggara Timur Mei 1404.
## 6 Nusa Tenggara Timur Juni 169.
## 7 Nusa Tenggara Timur Juli 943.
## 8 Nusa Tenggara Timur Agustus 565.
## 9 Nusa Tenggara Timur September 201.
## 10 Nusa Tenggara Timur Oktober 233.
## 11 Nusa Tenggara Timur November 575.
## 12 Nusa Tenggara Timur Desember 2359.Kasus Data Outflow Uang Kartal di Provinsi Nusa Tenggara Timur Pada Bulan Maret 2019
NusaTenggaraTimur2 <- datalongerBalinusra %>%
filter(Provinsi == 'Nusa Tenggara Timur', Bulan == 'Maret') %>%
select('Provinsi', 'Bulan', 'Kasus')
NusaTenggaraTimur2## # A tibble: 1 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Nusa Tenggara Timur Maret 225.Kasus Data Outflow Uang Kartal di Provinsi Nusa Tenggara Barat Pada Bulan Januari - Desember 2019
library(dplyr)NusaTenggaraBarat <- datalongerBalinusra %>%
filter(Provinsi == 'Nusa Tenggara Barat') %>%
select('Provinsi', 'Bulan', 'Kasus')
NusaTenggaraBarat## # A tibble: 12 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Nusa Tenggara Barat Januari 121.
## 2 Nusa Tenggara Barat Februari 524.
## 3 Nusa Tenggara Barat Maret 711.
## 4 Nusa Tenggara Barat April 1467.
## 5 Nusa Tenggara Barat Mei 2777.
## 6 Nusa Tenggara Barat Juni 235.
## 7 Nusa Tenggara Barat Juli 511.
## 8 Nusa Tenggara Barat Agustus 574.
## 9 Nusa Tenggara Barat September 657.
## 10 Nusa Tenggara Barat Oktober 815.
## 11 Nusa Tenggara Barat November 612.
## 12 Nusa Tenggara Barat Desember 1282.Kasus Data Outflow Uang Kartal di Provinsi Nusa Tenggara Barat Pada Bulan November 2019
NusaTenggaraBarat2 <- datalongerBalinusra %>%
filter(Provinsi == 'Nusa Tenggara Barat', Bulan == 'November') %>%
select('Provinsi', 'Bulan', 'Kasus')
NusaTenggaraBarat2## # A tibble: 1 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Nusa Tenggara Barat November 612.Visualisasi Pivot Data Outflow Uang Kartal di Pulau Bali,NTB,NTT Berdasarkan Provinsi
ggplot(data = datalongerBalinusra, mapping = aes(x = Bulan, y = Kasus)) +
geom_point(col = "Steelblue") +
facet_wrap( ~ Provinsi) +
theme(axis.text.x = element_text(angle = 90))