Pivot dan Visualisasi Data Inflow Uang Kartal beberapa Provinsi yang Ada di Pulau Sumatera

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

1 Pengertian Pivot Table

Pivot table adalah sebuah tabel yang berisi data rangkuman dari data dibeberapa tabel lainnya, dibuat dengan melakukan penjumlahan, menghitung rata-rata, mengurutkan data termasuk juga mengelompokkan data, sehingga dihasilkan tabel rangkuman yang lebih informatif dan mudah dibaca.

2 Pivot Table Inflow di Daerah Sumatera

library(readxl)

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

datainflowsumatera <- read_excel(path = "datainflowsumatera.xlsx")
datainflowsumatera

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.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

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

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

## 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()

3 Kasus Data Inflow di Daerah Sumatera Periode 2011-2021

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

4 Pivot Data Inflow di Daerah Sumatera berdasarkan Kasus

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

5 Kasus Data Inflow di Provinsi Maluku Periode 2011-2021

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

6 Kasus Data Inflow di Provinsi Maluku Tahun 2019

sumatera4 <- datalongersumatera %>%
  filter(Provinsi == 'Maluku', Tahun == '2019') %>%
 select('Provinsi', 'Tahun', 'Kasus')
sumatera4

7 Kasus Data Inflow di Provinsi Sumatera Utara Periode 2011-2021

library(dplyr)
sumatera3 <- datalongersumatera  %>%
    filter(Provinsi == 'Sumatera Utara') %>%
    select('Provinsi', 'Tahun', 'Kasus')
sumatera3

8 Kasus Data Inflow di Provinsi Sumatera Utara Tahun 2015

sumatera4 <- datalongersumatera %>%
  filter(Provinsi == 'Sumatera Utara', Tahun == '2015') %>%
 select('Provinsi', 'Tahun', 'Kasus')
sumatera4