Pivot Data Uang Kartal Di Pulau Sumatera Pada Tahun 2011-2021

Pengertian Pivot

Pivot adalah sebuah proses untuk menampilkan dan mengganalisa data secara singkat dan ringkas dalam jumlah yang besar dalam bentuk dan orientasi yang berbeda serta mampu melakukan kalkulasi pada setiap item yang dibutuhkan dengan menggunakan cara perhitungan sesuai kebutuhan dengan waktu yang singkat.

library(readxl)

## Warning: package 'readxl' was built under R version 4.1.2

pivotinflowsumatera <- read_excel(path = "D:/Matkul Sem2/Linear Algebra/pivot inflow sumatera.xlsx")
pivotinflowsumatera

## # A tibble: 8 x 12
##   Provinsi `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018` `2019` `2020`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Sumatera 57900. 65911. 98369. 8.60e4 86549. 97764. 1.04e5 1.17e5 1.34e5 1.09e5
## 2 Sumater~ 23238. 25981. 18120. 3.05e4 30254. 34427. 3.56e4 4.18e4 4.71e4 3.66e4
## 3 Sumater~  9385. 11192. 14056. 1.41e4 13309. 14078. 1.53e4 1.51e4 1.47e4 1.07e4
## 4 Jambi     1868.  2138.  3047. 5.17e3  4978.  4398. 4.40e3 5.66e3 6.49e3 5.63e3
## 5 Sumater~  7820.  9126.  8647. 1.00e4 10797. 12752. 1.31e4 1.43e4 1.48e4 1.18e4
## 6 Bengkulu  1153.  1201.  2378. 3.26e3  2791.  2889. 3.62e3 4.15e3 5.79e3 4.97e3
## 7 Lampung   7690.  6969.  3474. 9.45e3  8160.  9373. 1.21e4 1.34e4 1.70e4 1.52e4
## 8 Kep. Ba~     0      0      0  1.37e1  1177.  1544. 1.16e3 1.52e3 3.27e3 2.56e3
## # ... with 1 more variable: 2021 <dbl>

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.2

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.4     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

## Warning: package 'tidyr' was built under R version 4.1.2

## Warning: package 'readr' was built under R version 4.1.2

## Warning: package 'purrr' was built under R version 4.1.2

## Warning: package 'dplyr' was built under R version 4.1.2

## Warning: package 'forcats' was built under R version 4.1.2

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Pivot Data inflow Uang Kartal di Pulau Sumatera pada tahun 2011-2021

datalongerSumatera <- pivotinflowsumatera %>% 
  pivot_longer(!Provinsi, names_to = "Tahun", values_to = "Kasus")
datalongerSumatera

## # A tibble: 88 x 3
##    Provinsi Tahun   Kasus
##    <chr>    <chr>   <dbl>
##  1 Sumatera 2011   57900.
##  2 Sumatera 2012   65911.
##  3 Sumatera 2013   98369.
##  4 Sumatera 2014   86024.
##  5 Sumatera 2015   86549.
##  6 Sumatera 2016   97764.
##  7 Sumatera 2017  103748.
##  8 Sumatera 2018  117495.
##  9 Sumatera 2019  133762.
## 10 Sumatera 2020  109345.
## # ... with 78 more rows

Pivot Data Inflow Uang Kartal didasarkan dari kasus pada Pulau Sumatera

library(dplyr)
sumatera2 <- select(datalongerSumatera, Provinsi, Kasus)
sumatera2

## # A tibble: 88 x 2
##    Provinsi   Kasus
##    <chr>      <dbl>
##  1 Sumatera  57900.
##  2 Sumatera  65911.
##  3 Sumatera  98369.
##  4 Sumatera  86024.
##  5 Sumatera  86549.
##  6 Sumatera  97764.
##  7 Sumatera 103748.
##  8 Sumatera 117495.
##  9 Sumatera 133762.
## 10 Sumatera 109345.
## # ... with 78 more rows

Kasus Data Inflow Uang Kartal di provinsi Jambi pada tahun 2011-2021

library(dplyr)
sumatera3 <- datalongerSumatera  %>%
    filter(Provinsi == 'Jambi') %>%
    select('Provinsi', 'Tahun', 'Kasus')
sumatera3 

## # A tibble: 11 x 3
##    Provinsi Tahun Kasus
##    <chr>    <chr> <dbl>
##  1 Jambi    2011  1868.
##  2 Jambi    2012  2138.
##  3 Jambi    2013  3047.
##  4 Jambi    2014  5169.
##  5 Jambi    2015  4978.
##  6 Jambi    2016  4398.
##  7 Jambi    2017  4404.
##  8 Jambi    2018  5657.
##  9 Jambi    2019  6486.
## 10 Jambi    2020  5628.
## 11 Jambi    2021  4980.

Kasus Data Inflow Uang Kartal di provinsi Jambi pada Tahun 2021

sumatera4 <- datalongerSumatera %>%
  filter(Provinsi == 'Jambi', Tahun == '2021') %>%
 select('Provinsi', 'Tahun', 'Kasus')
sumatera4

## # A tibble: 1 x 3
##   Provinsi Tahun Kasus
##   <chr>    <chr> <dbl>
## 1 Jambi    2021  4980.

Visualisasi Pivot Data Inflow Uang Kartal di pulau Sumatera Berdasarkan Provinsi

ggplot(data = datalongerSumatera, mapping = aes(x = Tahun, 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 Tahun

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

Refensi

1.https://en.wikipedia.org/wiki/Pivot_table#:~:text=Pivot%20tables%20are%20a%20technique%20in%20data%20processing.,to%20helping%20businesses%20or%20individuals%20make%20educated%20decisions.

2.https://www.kitalulus.com/seputar-kerja/pivot-table-adalah

3.https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx