Visualisasi dan Komparasi Prediksi Data Inflow-Outflow Uang Kartal di Aceh dan Jambi
Muhammad Ihya’ Ulumuddin Al Hazmi
3/14/2022
Pada postingan sebelumnya saya telah melakukan visualisasi Prediksi Data Inflow-Outflow Uang Kartal menggunakan fungsi plot, pada postingan kali ini saya akan mencoba melakukan Komparasi dengan menggunakan fungsi dan cara yang sama.
Import Data Inflow dan Outflow ke RStudio
Data Inflow Pulau Sumatera
library(readxl)## Warning: package 'readxl' was built under R version 4.1.2datainflow <- read_excel(path = "C:/Users/AMD/Documents/flowdata.xlsx", col_names = TRUE)
datainflow## # A tibble: 11 x 13
## No. Tahun Sumatera Aceh `Sumatera Utara` `Sumatera Barat` Riau
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 2011 57900. 2308. 23238. 9385. 3012.
## 2 2 2012 65911. 2620. 25981. 11192. 4447.
## 3 3 2013 98369. 36337. 18120. 14056. 8933.
## 4 4 2014 86024. 4567. 30503. 14103. 6358.
## 5 5 2015 86549. 4710. 30254. 13309. 7156.
## 6 6 2016 97764. 5775. 34427. 14078. 8211.
## 7 7 2017 103748. 5514. 35617. 15312. 8553.
## 8 8 2018 117495. 5799. 41769. 15058. 10730.
## 9 9 2019 133762. 7509. 47112. 14750. 10915.
## 10 10 2020 109345. 6641. 36609. 10696. 9148.
## 11 11 2021 89270. 3702. 31840. 10748. 7769.
## # ... with 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## # `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## # `Kep. Bangka Belitung` <dbl>Data Outflow Pulau Sumatera setiap Tahun
library(readxl)
dataoutflow <- read_excel(path = "C:/Users/AMD/Documents/Outflowdata.xlsx", col_names = TRUE)
dataoutflow## # A tibble: 11 x 13
## No. Tahun Sumatera Aceh `Sumatera Utara` `Sumatera Barat` Riau
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 2011 80092. 6338. 22176. 5300. 12434.
## 2 2 2012 85235. 6378. 22495. 6434. 13014.
## 3 3 2013 103288. 23278. 19235. 6511. 15460.
## 4 4 2014 102338. 8630. 26391. 7060. 15158.
## 5 5 2015 109186. 9637. 27877. 7471. 15789.
## 6 6 2016 121992. 11311. 31959. 9198. 17645.
## 7 7 2017 133606. 11760. 35243. 10754. 18128.
## 8 8 2018 135676. 11450. 36908. 8447. 17926.
## 9 9 2019 153484. 13087. 44051. 9465. 19277.
## 10 10 2020 140589. 12874. 39758. 8763. 19139.
## 11 11 2021 86627. 5770. 23453. 5941. 12631.
## # ... with 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## # `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## # `Kep. Bangka Belitung` <dbl>Visualisasi Data Inflow dan Outflow di RStudio
Visualisasi Data Inflow-Outflow Uang Kuartal Sumatera setiap Tahun
plot(datainflow$Tahun,datainflow$`Sumatera`,type = "l", col= "red")
lines(dataoutflow$Tahun,dataoutflow$`Sumatera`,col="blue")
legend("top",c("Inflow","Outflow"),fill=c("red","blue"))
Komparasi Data Inflow dan Outflow Uang Kuartal Aceh dan Jambi
- Data Inflow Aceh
plot(datainflow$Tahun,datainflow$`Aceh`,type = "l", col= "green")
- Data Inflow Jambi
plot(datainflow$Tahun,datainflow$`Jambi`,type = "l", col= "blue")
- Komparasi Data Inflow Uang Kuartal Aceh dan Jambi
plot(datainflow$Tahun,datainflow$`Aceh`,type = "l", col= "green")
lines(datainflow$Tahun,datainflow$`Jambi`,col="blue")
legend("top",c("Inflow Aceh","Inflow Jambi"),fill=c("green","blue"))
- Data Outflow Aceh
plot(dataoutflow$Tahun,dataoutflow$`Aceh`,type = "l", col= "green")
- Data Outflow Jambi
plot(dataoutflow$Tahun,dataoutflow$`Jambi`,type = "l", col= "blue")
- Komparasi Data Inflow Uang Kuartal Aceh dan Jambi
plot(dataoutflow$Tahun,dataoutflow$`Aceh`,type = "l", col= "green")
lines(dataoutflow$Tahun,dataoutflow$`Jambi`,col="blue")
legend("top",c("Outflow Aceh","Outflow Jambi"),fill=c("green","blue"))