Pivot Data Outflow Uang Kartal di Pulau Sumatera 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 outlow 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
##    <chr>               <dbl>    <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>   <dbl>
##  1 Sumatera            4694.    6959. 12668. 11776. 19645. 3972.  12710.   9744.
##  2 Aceh                 182.     426.  1434.  1432.  1690.  436.   1769.    456.
##  3 Sumatera Utara      1456.    2150.  3244.  3371.  4148. 1474.   3526.   3054.
##  4 Sumatera Barat       102.     308.   782.   819.  2242.   34.1   651.    566.
##  5 Riau                 740.     832.  1264.  1775.  2926.  283.   1530.   1470.
##  6 Kep. Riau            627.     494.   823.   708.   964.  221.    615.    526.
##  7 Jambi                230.     422.   606.   714.  1263.  144.    634.    610.
##  8 Sumatera Selatan     516.    1087.  1852.  1261.  2590.  608.   1445.   1494.
##  9 Bengkulu             257.     332.   442.   531.   970.  210.    681.    483.
## 10 Lampung              456.     787.  1872.   872.  2180.  535.   1538.    948.
## 11 Kep.Bangka Belit~    126.     121.   347.   292.   673.   28.3   321.    137.
## # ... with 4 more variables: September <dbl>, Oktober <dbl>, November <dbl>,
## #   Desember <dbl>

Kasus Data Outflow 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    4694.
##  2 Sumatera Februari   6959.
##  3 Sumatera Maret     12668.
##  4 Sumatera April     11776.
##  5 Sumatera Mei       19645.
##  6 Sumatera Juni       3972.
##  7 Sumatera Juli      12710.
##  8 Sumatera Agustus    9744.
##  9 Sumatera September  9247.
## 10 Sumatera Oktober   14432.
## # ... with 122 more rows

Pivot Data Outflow Uang Kartal di Pulau Sumatera berdasarkan Kasus

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

## # A tibble: 132 x 2
##    Provinsi  Kasus
##    <chr>     <dbl>
##  1 Sumatera  4694.
##  2 Sumatera  6959.
##  3 Sumatera 12668.
##  4 Sumatera 11776.
##  5 Sumatera 19645.
##  6 Sumatera  3972.
##  7 Sumatera 12710.
##  8 Sumatera  9744.
##  9 Sumatera  9247.
## 10 Sumatera 14432.
## # ... with 122 more rows

Kasus Data Outflow 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    182.
##  2 Aceh     Februari   426.
##  3 Aceh     Maret     1434.
##  4 Aceh     April     1432.
##  5 Aceh     Mei       1690.
##  6 Aceh     Juni       436.
##  7 Aceh     Juli      1769.
##  8 Aceh     Agustus    456.
##  9 Aceh     September  830.
## 10 Aceh     Oktober   1175.
## 11 Aceh     November   774.
## 12 Aceh     Desember  2270.

Kasus Data Outflow 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  456.

Kasus Data Outflow 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    740.
##  2 Riau     Februari   832.
##  3 Riau     Maret     1264.
##  4 Riau     April     1775.
##  5 Riau     Mei       2926.
##  6 Riau     Juni       283.
##  7 Riau     Juli      1530.
##  8 Riau     Agustus   1470.
##  9 Riau     September 1394.
## 10 Riau     Oktober   2018.
## 11 Riau     November  1409.
## 12 Riau     Desember  3498.

Kasus Data Outflow 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 1470.

Visualisasi Pivot Data Outflow 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 Outflow 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 Outflow Uang Kartal di Pulau Sumatera pada Tahun 2020

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

13/3/2022

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

Pivot