Pivot dan Visualisasi Data Inflow Uang Kartal di Pulau Bali Nusra pada Tahun 2011
Rafi Ronalda Purnama Hakim,Prof.Dr.Suhartono,M.KOM
3/17/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)datainflowBalinusra <- read_excel(path = "Inflow2011Balinusra.xlsx")
datainflowBalinusra## # 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 912. 591. 869. 709. 754. 633. 856. 607. 1965.
## 2 Bali 463. 401. 532. 431. 474. 393. 585. 328. 1434.
## 3 Nusa Tenggar~ 93.8 82.1 125. 124. 113. 105. 137. 136. 292.
## 4 Nusa Tenggar~ 354. 108. 212. 154. 167. 135. 134. 143. 239.
## # ... 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 Pulau Bali Nusra pada Tahun 2011
datalongerBalinusra <- datainflowBalinusra %>%
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 912.
## 2 Bali Nusra Februari 591.
## 3 Bali Nusra Maret 869.
## 4 Bali Nusra April 709.
## 5 Bali Nusra Mei 754.
## 6 Bali Nusra Juni 633.
## 7 Bali Nusra Juli 856.
## 8 Bali Nusra Agustus 607.
## 9 Bali Nusra September 1965.
## 10 Bali Nusra Oktober 874.
## # ... with 38 more rowsPivot Data Inflow 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 912.
## 2 Bali Nusra 591.
## 3 Bali Nusra 869.
## 4 Bali Nusra 709.
## 5 Bali Nusra 754.
## 6 Bali Nusra 633.
## 7 Bali Nusra 856.
## 8 Bali Nusra 607.
## 9 Bali Nusra 1965.
## 10 Bali Nusra 874.
## # ... with 38 more rowsKasus Data Inflow Uang Kartal di Provinsi Bali Pada Bulan Januari - Desember 2011
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 463.
## 2 Bali Februari 401.
## 3 Bali Maret 532.
## 4 Bali April 431.
## 5 Bali Mei 474.
## 6 Bali Juni 393.
## 7 Bali Juli 585.
## 8 Bali Agustus 328.
## 9 Bali September 1434.
## 10 Bali Oktober 522.
## 11 Bali November 516.
## 12 Bali Desember 314.Kasus Data Inflow Uang Kartal di Provinsi Bali Pada Bulan Februari 2011
Bali2 <- datalongerBalinusra %>%
filter(Provinsi == 'Bali', Bulan == 'Februari') %>%
select('Provinsi', 'Bulan', 'Kasus')
Bali2## # A tibble: 1 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Bali Februari 401.Kasus Data Inflow Uang Kartal di Provinsi Nusa Tenggara Timur Pada Bulan Januari - Desember 2011
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 354.
## 2 Nusa Tenggara Timur Februari 108.
## 3 Nusa Tenggara Timur Maret 212.
## 4 Nusa Tenggara Timur April 154.
## 5 Nusa Tenggara Timur Mei 167.
## 6 Nusa Tenggara Timur Juni 135.
## 7 Nusa Tenggara Timur Juli 134.
## 8 Nusa Tenggara Timur Agustus 143.
## 9 Nusa Tenggara Timur September 239.
## 10 Nusa Tenggara Timur Oktober 169.
## 11 Nusa Tenggara Timur November 182.
## 12 Nusa Tenggara Timur Desember 130.Kasus Data Inflow Uang Kartal di Provinsi Nusa Tenggara Timur Pada Bulan Mei 2011
NusaTenggaraTimur2 <- datalongerBalinusra %>%
filter(Provinsi == 'Nusa Tenggara Timur', Bulan == 'Mei') %>%
select('Provinsi', 'Bulan', 'Kasus')
NusaTenggaraTimur2## # A tibble: 1 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Nusa Tenggara Timur Mei 167.Kasus Data Inflow Uang Kartal di Provinsi Nusa Tenggara Barat Pada Bulan Januari - Desember 2011
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 93.8
## 2 Nusa Tenggara Barat Februari 82.1
## 3 Nusa Tenggara Barat Maret 125.
## 4 Nusa Tenggara Barat April 124.
## 5 Nusa Tenggara Barat Mei 113.
## 6 Nusa Tenggara Barat Juni 105.
## 7 Nusa Tenggara Barat Juli 137.
## 8 Nusa Tenggara Barat Agustus 136.
## 9 Nusa Tenggara Barat September 292.
## 10 Nusa Tenggara Barat Oktober 184.
## 11 Nusa Tenggara Barat November 221.
## 12 Nusa Tenggara Barat Desember 189.Kasus Data Inflow Uang Kartal di Provinsi Nusa Tenggara Barat Pada Bulan November 2011
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 221.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 = "red") +
facet_wrap( ~ Provinsi) +
theme(axis.text.x = element_text(angle = 90))