Pivot Data Inflow Uang Kartal di Pulau Jawa pada Tahun 2020

Pengertian Pivot

Pivot adalah proses membuat rangkuman, melakukan analisa, eksplorasi, dan mempresentasikan data. Salah satu software yang menyediakan fitur Pivot adalah MSExcel. Pada MSExcel terdapat fitur PivotTable dimana biasanya merupakan laporan berbentuk tabel yang dalam waktu saat singkat mampu menampilkan ringkasan berdasarkan jumlah data besar kedalam bentuk atau orientasi berbeda dan sanggup melakukan kalkulasi dalam setiap item yang dibutuhkan.

Misalkan apabila kita mempunyai data yang diunduh dari sebuah database atau dibuat sendiri dengan jumlah ratusan, ribuan, atau bahkan ratusan ribu baris data, tentunya akan sulit untuk mengolah serta mendapatkan informasi secara cepat. Informasi yang dimaksud misalnya : Menampilkan data berdasarkan kriteria atau perhitungan tertentu, membandingkan antar field (kolom) satu dengan yang lainnya, menampilkan perulangan data, hubungan perulangan data pada suatu periode dan lain sebagainya.

Selain itu bahasa pemrograman R juga menyediakan fitur provit data. Berikut penerapan pivotdata inflow uang kartal di Pulau Sumatera pada tahun 2020 menggunakan bahasa pemrograman R.

## # A tibble: 11 x 13
##    Provinsi    Januari Februari Maret April   Mei   Juni  Juli Agustus September
##    <chr>         <dbl>    <dbl> <dbl> <dbl> <dbl>  <dbl> <dbl>   <dbl>     <dbl>
##  1 Sumatera     19331.   10365. 7129. 6537. 7788. 14947. 8278.   8012.     7559.
##  2 Aceh          1642.     693.  297.  281.  489.  1095.  258.    593.      410.
##  3 Sumatera U~   6477.    3659. 2723. 2036. 2380.  4344. 3057.   2371.     2391.
##  4 Sumatera B~   1937.     868.  594.  586.  461.  1753.  721.    934.      842.
##  5 Riau          1567.     900.  657.  465.  832.  1646.  754.    643.      373.
##  6 Kep. Riau      731.     637.  387.  525.  380.   794.  507.    486.      527.
##  7 Jambi          929.     453.  376.  488.  366.   926.  419.    363.      364.
##  8 Sumatera S~   2054.     915.  680.  666. 1019.  1433. 1025.    933.      922.
##  9 Bengkulu       984.     518.  323.  296.  331.   594.  290.    409.      439.
## 10 Lampung       2552.    1446.  939.  955. 1276.  1889. 1067.   1128.     1160.
## 11 Kep. Bangk~    458.     276.  154.  239.  253.   472.  180.    152.      130.
## # ... with 3 more variables: Oktober <dbl>, November <dbl>, Desember <dbl>

Kasus Data Inflow Uang Kartal di Pulau Sumatera pada bulan Januari - Desember 2020

library(tidyverse)
datalong <- dataout %>%
  pivot_longer(!Provinsi, names_to = "Bulan", values_to = "Kasus")
datalong

## # A tibble: 132 x 3
##    Provinsi Bulan      Kasus
##    <chr>    <chr>      <dbl>
##  1 Sumatera Januari   19331.
##  2 Sumatera Februari  10365.
##  3 Sumatera Maret      7129.
##  4 Sumatera April      6537.
##  5 Sumatera Mei        7788.
##  6 Sumatera Juni      14947.
##  7 Sumatera Juli       8278.
##  8 Sumatera Agustus    8012.
##  9 Sumatera September  7559.
## 10 Sumatera Oktober    5735.
## # ... with 122 more rows

Pivot Data Inflow Uang Kartal di Pulau Sumatera berdasarkan Kasus

sumatra <- select(datalong, Provinsi, Kasus)
sumatra

## # A tibble: 132 x 2
##    Provinsi  Kasus
##    <chr>     <dbl>
##  1 Sumatera 19331.
##  2 Sumatera 10365.
##  3 Sumatera  7129.
##  4 Sumatera  6537.
##  5 Sumatera  7788.
##  6 Sumatera 14947.
##  7 Sumatera  8278.
##  8 Sumatera  8012.
##  9 Sumatera  7559.
## 10 Sumatera  5735.
## # ... with 122 more rows

Kasus Data Inflow Uang Kartal di Aceh pada Bulan Januari - Desember 2020

Aceh <- datalong %>%
  filter(Provinsi == 'Aceh') %>%
  select('Provinsi', 'Bulan', 'Kasus')
Aceh

## # A tibble: 12 x 3
##    Provinsi Bulan     Kasus
##    <chr>    <chr>     <dbl>
##  1 Aceh     Januari   1642.
##  2 Aceh     Februari   693.
##  3 Aceh     Maret      297.
##  4 Aceh     April      281.
##  5 Aceh     Mei        489.
##  6 Aceh     Juni      1095.
##  7 Aceh     Juli       258.
##  8 Aceh     Agustus    593.
##  9 Aceh     September  410.
## 10 Aceh     Oktober    274.
## 11 Aceh     November   438.
## 12 Aceh     Desember   171.

Kasus Data Inflow Uang Kartal di Aceh pada Bulan Agustus 2020

Aceh <- datalong %>%
  filter(Provinsi == 'Aceh', Bulan == 'Agustus') %>%
  select('Provinsi', 'Bulan', 'Kasus')
Aceh

## # A tibble: 1 x 3
##   Provinsi Bulan   Kasus
##   <chr>    <chr>   <dbl>
## 1 Aceh     Agustus  593.

Kasus Data Inflow Uang Kartal di Riau pada Bulan Januari - Desember 2020

riau <- datalong %>%
  filter(Provinsi == 'Riau') %>%
  select('Provinsi', 'Bulan', 'Kasus')
riau

## # A tibble: 12 x 3
##    Provinsi Bulan     Kasus
##    <chr>    <chr>     <dbl>
##  1 Riau     Januari   1567.
##  2 Riau     Februari   900.
##  3 Riau     Maret      657.
##  4 Riau     April      465.
##  5 Riau     Mei        832.
##  6 Riau     Juni      1646.
##  7 Riau     Juli       754.
##  8 Riau     Agustus    643.
##  9 Riau     September  373.
## 10 Riau     Oktober    524.
## 11 Riau     November   612.
## 12 Riau     Desember   174.

Kasus Data Inflow Uang Kartal di Riau pada Bulan Agustus 2020

riau <- datalong %>%
  filter(Provinsi == 'Riau', Bulan == 'Agustus') %>%
  select('Provinsi', 'Bulan', 'Kasus')
riau

## # A tibble: 1 x 3
##   Provinsi Bulan   Kasus
##   <chr>    <chr>   <dbl>
## 1 Riau     Agustus  643.

Visualisasi Pivot Data Inflow Uang Kartal di Pulau Sumatera berdasarkan Provinsi

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

Visualisasi Pivot Data Inflow Uang Kartal di Pulau Sumatera berdasarkan Bulan

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

Pivot Data Inflow Uang Kartal di Pulau Jawa pada Tahun 2020

M.Tazkia Ikshanul Ma’arif,Prof.Dr.Suhartono,M.Kom.

27/3/2022

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

Pivot