Pivot Data Inflow Uang Kartal di Pulau Kalimantan pada Tahun 2015
library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflowkalimantan <- read_excel(path = "D:/1. PERKULIAHAN/Semester 2/Linier Algebra/data/inflowkalimantan.xlsx")
## New names:
## * `` -> ...1
datainflowkalimantan
## # A tibble: 6 x 14
## ...1 Provinsi JANUARI FEBRUARI MARET APRIL MEI JUNI JULI AGUSTUS
## <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 Kalimantan 4923. 2225. 2208. 1884. 1770. 1968. 4639. 2697.
## 2 2 Kalimantan Barat 1321. 363. 632. 408. 318. 346. 1219. 585.
## 3 3 Kalimantan Tengah 506. 248. 228. 167. 225. 291. 662. 281.
## 4 4 Kalimantan Selat~ 1308. 768. 573. 655. 656. 717. 1168. 1073.
## 5 5 Kalimantan Timur 1788. 846. 775. 654. 571. 613. 1591. 759.
## 6 6 Kalimantan Utara 0 0 0 0 0 0 0 0
## # ... with 4 more variables: SEPTEMBER <dbl>, OKTOBER <dbl>, NOVEMBER <dbl>,
## # DESEMBER <dbl>
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.2
## 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()
Pivot Data Inflow Uang Kuartal di Pulau Kalimantan pada Bulan Januari-Desember 2015
datalongerkalimantan<- datainflowkalimantan %>%
pivot_longer(!Provinsi, names_to = "Bulan", values_to = "Kasus")
datalongerkalimantan
## # A tibble: 78 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Kalimantan ...1 1
## 2 Kalimantan JANUARI 4923.
## 3 Kalimantan FEBRUARI 2225.
## 4 Kalimantan MARET 2208.
## 5 Kalimantan APRIL 1884.
## 6 Kalimantan MEI 1770.
## 7 Kalimantan JUNI 1968.
## 8 Kalimantan JULI 4639.
## 9 Kalimantan AGUSTUS 2697.
## 10 Kalimantan SEPTEMBER 2013.
## # ... with 68 more rows
Pivot Data Inflow Uang Kartal di Pulau Kalimantan berdasarkan Kasus
library(dplyr)
kasuskalimantan <- select(datalongerkalimantan, Provinsi, Kasus)
kasuskalimantan
## # A tibble: 78 x 2
## Provinsi Kasus
## <chr> <dbl>
## 1 Kalimantan 1
## 2 Kalimantan 4923.
## 3 Kalimantan 2225.
## 4 Kalimantan 2208.
## 5 Kalimantan 1884.
## 6 Kalimantan 1770.
## 7 Kalimantan 1968.
## 8 Kalimantan 4639.
## 9 Kalimantan 2697.
## 10 Kalimantan 2013.
## # ... with 68 more rows
Pivot Data Inflow Uang Kartal di Kalimantan Barat berdasarkan Kasus
library(dplyr)
kasuskalbar <- datalongerkalimantan %>%
filter(Provinsi == 'Kalimantan Barat') %>%
select('Provinsi', 'Bulan', 'Kasus')
kasuskalbar
## # A tibble: 13 x 3
## Provinsi Bulan Kasus
## <chr> <chr> <dbl>
## 1 Kalimantan Barat ...1 2
## 2 Kalimantan Barat JANUARI 1321.
## 3 Kalimantan Barat FEBRUARI 363.
## 4 Kalimantan Barat MARET 632.
## 5 Kalimantan Barat APRIL 408.
## 6 Kalimantan Barat MEI 318.
## 7 Kalimantan Barat JUNI 346.
## 8 Kalimantan Barat JULI 1219.
## 9 Kalimantan Barat AGUSTUS 585.
## 10 Kalimantan Barat SEPTEMBER 433.
## 11 Kalimantan Barat OKTOBER 431.
## 12 Kalimantan Barat NOVEMBER 262.
## 13 Kalimantan Barat DESEMBER 358.
Pivot Data Inflow Uang Kartal di Kalimantan Barat di bulan Desember
kasuskalbar2 <- datalongerkalimantan %>%
filter(Provinsi == 'Kalimantan Barat', Bulan == 'Desember') %>%
select('Provinsi', 'Bulan', 'Kasus')
kasuskalbar2
## # A tibble: 0 x 3
## # ... with 3 variables: Provinsi <chr>, Bulan <chr>, Kasus <dbl>
Visualisasi Pivot Data Inflow Uang Kartal di Pulau Kalimantan berdasarkan Provinsi
ggplot(data = datalongerkalimantan, mapping = aes(x = Bulan, y = Kasus)) +
geom_point() +
facet_wrap( ~ Provinsi) +
theme(axis.text.x = element_text(angle = 90))
Visualisasi Pivot Data Inflow Uang Kartal di Pulau Jawa berdasarkan Bulan/Periode
ggplot(data = datalongerkalimantan, mapping = aes(x = Provinsi, y = Kasus)) +
geom_point() +
facet_wrap( ~ Bulan) +
theme(axis.text.x = element_text(angle = 90))
