Pivot Data Inflow Uang Kartal Di Pulau Bali dan Nusa Tenggara 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

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

## # A tibble: 4 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 Bali Nu~ 10322. 14613. 17512. 20807. 23008. 30965. 30797. 33866. 38116. 29400.
## 2 Bali      6394.  8202.  5066. 11590. 13072. 17914. 16962. 18610. 21422. 14735.
## 3 Nusa Te~  1803.  3676.  7024.  5704.  6285.  8842.  8383.  9140.  9614.  8007.
## 4 Nusa Te~  2125.  2735.  5422.  3512.  3651.  4210.  5452.  6116.  7080.  6657.
## # ... 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 Bali dan Nusa Tenggara pada tahun 2011-2021

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

## # A tibble: 44 x 3
##    Provinsi   Tahun  Kasus
##    <chr>      <chr>  <dbl>
##  1 Bali Nusra 2011  10322.
##  2 Bali Nusra 2012  14613.
##  3 Bali Nusra 2013  17512.
##  4 Bali Nusra 2014  20807.
##  5 Bali Nusra 2015  23008.
##  6 Bali Nusra 2016  30965.
##  7 Bali Nusra 2017  30797.
##  8 Bali Nusra 2018  33866.
##  9 Bali Nusra 2019  38116.
## 10 Bali Nusra 2020  29400.
## # ... with 34 more rows

Pivot Data inflow Uang Kartal didasarkan dari kasus pada Pulau bali dan Nusa Tenggara

library(dplyr)
bali2 <- select(datalongerbali, Provinsi, Kasus)
bali2

## # A tibble: 44 x 2
##    Provinsi    Kasus
##    <chr>       <dbl>
##  1 Bali Nusra 10322.
##  2 Bali Nusra 14613.
##  3 Bali Nusra 17512.
##  4 Bali Nusra 20807.
##  5 Bali Nusra 23008.
##  6 Bali Nusra 30965.
##  7 Bali Nusra 30797.
##  8 Bali Nusra 33866.
##  9 Bali Nusra 38116.
## 10 Bali Nusra 29400.
## # ... with 34 more rows

Kasus Data inflow Uang Kartal di provinsi Nusa Tenggara Timur pada tahun 2011-2021

library(dplyr)
bali3 <- datalongerbali  %>%
    filter(Provinsi == 'Nusa Tenggara Timur') %>%
    select('Provinsi', 'Tahun', 'Kasus')
bali3 

## # A tibble: 11 x 3
##    Provinsi            Tahun Kasus
##    <chr>               <chr> <dbl>
##  1 Nusa Tenggara Timur 2011  2125.
##  2 Nusa Tenggara Timur 2012  2735.
##  3 Nusa Tenggara Timur 2013  5422.
##  4 Nusa Tenggara Timur 2014  3512.
##  5 Nusa Tenggara Timur 2015  3651.
##  6 Nusa Tenggara Timur 2016  4210.
##  7 Nusa Tenggara Timur 2017  5452.
##  8 Nusa Tenggara Timur 2018  6116.
##  9 Nusa Tenggara Timur 2019  7080.
## 10 Nusa Tenggara Timur 2020  6657.
## 11 Nusa Tenggara Timur 2021  5498.

Kasus Data Inflow Uang Kartal di provinsi Nusa Tenggara Timur pada Tahun 2021

bali4 <- datalongerbali %>%
  filter(Provinsi == 'Nusa Tenggara Timur', Tahun == '2021') %>%
 select('Provinsi', 'Tahun', 'Kasus')
bali4

## # A tibble: 1 x 3
##   Provinsi            Tahun Kasus
##   <chr>               <chr> <dbl>
## 1 Nusa Tenggara Timur 2021  5498.

Visualisasi Pivot Data Inflow Uang Kartal di pulau Bali dan Nusa Tenggara Berdasarkan Provinsi

ggplot(data = datalongerbali, 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 Bali dan Nusa Tenggara Berdasarkan Tahun

ggplot(data = datalongerbali, 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