Lembaga : UIN Maulana Malik Ibrahim Malang
Jurusan : Teknik Informatika

1 . Pendahuluan

pivot table adalah ringkasan data yang dikemas dalam tabel interaktif agar memudahkan dan membantu kamu untuk membuat laporan dan menganalisisnya dengan melihat perbandingan data yang kamu miliki. Singkatnya, gunanya pivot table adalah untuk merangkum, mengelompokkan, mengeksplorasi, mempresentasikan, menghitung, dan menganalisa data.

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.3
## outflow
dataoutflowkalimantan <- read_excel(path = "outflow tahunan Kal.xlsx")
dataoutflowkalimantan   
## Tidyverse
library(tidyverse)   
## Warning: package 'tidyverse' was built under R version 4.1.3
## -- 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.3
## Warning: package 'tibble' was built under R version 4.1.3
## Warning: package 'tidyr' was built under R version 4.1.3
## Warning: package 'readr' was built under R version 4.1.3
## Warning: package 'purrr' was built under R version 4.1.3
## Warning: package 'dplyr' was built under R version 4.1.3
## Warning: package 'forcats' was built under R version 4.1.3
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

2 . Kasus Data outflow Uang Kartal di Pulau kalimantan pada periode 2011-2021

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

3 . Pivot Data outflow Uang Kartal di Pulau kalimantan Berdasarkan Kasus

library(dplyr)
kalimantan2 <- select(datalongerkalimantan, Provinsi, Kasus)
kalimantan2

4 . Kasus Data outflow Uang Kartal di provinsi kalimantan Periode 2011-2021

library(dplyr)
kalimantan3 <- datalongerkalimantan  %>%
    filter(Provinsi == 'kalimantan') %>%
    select('Provinsi', 'Tahun', 'Kasus')
kalimantan3

5 . Kasus Data outflow Uang Kartal di provinsi kalimantan Tahun 2021

kalimantan4 <- datalongerkalimantan %>%
  filter(Provinsi == 'kalimantan', Tahun == '2021') %>%
 select('Provinsi', 'Tahun', 'Kasus')
kalimantan4

6 . Kasus Data outflow Uang Kartal di provinsi kalimantan Tahun 2021

kalimantan4 <- datalongerkalimantan %>%
  filter(Provinsi == 'kalimantan', Tahun == '2021') %>%
 select('Provinsi', 'Tahun', 'Kasus')
kalimantan4

7 . Visualisasi Pivot Data outflow Uang Kartal di pulau kalimantan Berdasarkan Provinsi

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

8 . Visualisasi Pivot Data outflow Uang Kartal di pulau kalimantan Berdasarkan Provinsi

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

9 . Visualisasi Pivot Data outflow Uang Kartal di pulau kalimantan Berdasarkan Tahun

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