Lembaga : UIN Maulana Malik Ibrahim Malang, Teknik Informatika.

Perbandingan Data Inflow dan Outflow pada Provinsi Kepulauan Sumatera

Data Uang Kartal Inflow

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflow <- read_excel(path = "inflowup.xlsx")
datainflow
## # A tibble: 11 x 11
##    Tahun   Aceh `Sumatera Utara` `Sumatera Barat`   Riau `Kep. Riau` Jambi
##    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>       <dbl> <dbl>
##  1  2011  2308.           23238.            9385.  3012.       1426. 1868.
##  2  2012  2620.           25981.           11192.  4447.       2236. 2138.
##  3  2013 36337.           18120.           14056.  8933.       3378. 3047.
##  4  2014  4567.           30503.           14103.  6358.       2563. 5169.
##  5  2015  4710.           30254.           13309.  7156.       3218. 4978.
##  6  2016  5775.           34427.           14078.  8211.       4317. 4398.
##  7  2017  5514.           35617.           15312.  8553.       4412. 4404.
##  8  2018  5799.           41769.           15058. 10730.       5134. 5657.
##  9  2019  7509.           47112.           14750. 10915.       6077. 6486.
## 10  2020  6641.           36609.           10696.  9148.       6175. 5628.
## 11  2021  3702.           31840.           10748.  7769.       5009. 4980.
## # ... with 4 more variables: Sumatera Selatan <dbl>, Bengkulu <dbl>,
## #   Lampung <dbl>, Kep. Bangka Belitung <dbl>

Data Uang Kartal Outflow

library(readxl)
dataoutflow <- read_excel(path = "outflowup.xlsx")
dataoutflow
## # A tibble: 11 x 11
##    Tahun   Aceh `Sumatera Utara` `Sumatera Barat`   Riau `Kep. Riau` Jambi
##    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>       <dbl> <dbl>
##  1  2011  6338.           22176.            5300. 12434.       5819. 5217.
##  2  2012  6378.           22495.            6434. 13014.       6966. 5013.
##  3  2013 23278.           19235.            6511. 15460.       8747. 6302.
##  4  2014  8630.           26391.            7060. 15158.      10122. 8361.
##  5  2015  9637.           27877.            7471. 15789.       9803. 8325.
##  6  2016 11311.           31959.            9198. 17645.      10068. 7774.
##  7  2017 11760.           35243.           10754. 18128.      10749. 8434.
##  8  2018 11450.           36908.            8447. 17926.      12597. 8459.
##  9  2019 13087.           44051.            9465. 19277.      12644. 9204.
## 10  2020 12874.           39758.            8763. 19139.       8461. 8950.
## 11  2021  5770.           23453.            5941. 12631.       5128. 6046.
## # ... with 4 more variables: Sumatera Selatan <dbl>, Bengkulu <dbl>,
## #   Lampung <dbl>, Kep. Bangka Belitung <dbl>

1. Perbandingan Inflow dan Outflow pada Aceh

plot(datainflow$Tahun,datainflow$Aceh ,type = "l", col = "blue")
lines(dataoutflow$Tahun,dataoutflow$Aceh ,type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

2. Perbandingan Inflow dan Outflow pada Sumatera Utara

plot(datainflow$Tahun,datainflow$`Sumatera Utara` ,type = "l", col = "red")
lines(dataoutflow$Tahun,dataoutflow$`Sumatera Utara` ,type = "l", col = "black")
legend("top",c("Inflow","Outflow"),fill=c("red","black"))

3. Perbandingan Inflow dan Outflow pada Sumatera Barat

plot(datainflow$Tahun,datainflow$`Sumatera Barat` ,type = "l", col = "black")
lines(dataoutflow$Tahun,dataoutflow$`Sumatera Barat` ,type = "l", col = "purple")
legend("top",c("Inflow","Outflow"),fill=c("black","purple"))

4. Perbandingan Inflow dan Outflow pada Riau

plot(datainflow$Tahun,datainflow$Riau ,type = "l", col = "purple")
lines(dataoutflow$Tahun,dataoutflow$Riau ,type = "l", col = "pink")
legend("top",c("Inflow","Outflow"),fill=c("purple","pink"))

5. Perbandingan Inflow dan Outflow pada Kep. Riau

plot(datainflow$Tahun,datainflow$`Kep. Riau` ,type = "l", col = "pink")
lines(dataoutflow$Tahun,dataoutflow$`Kep. Riau` ,type = "l", col = "brown")
legend("top",c("Inflow","Outflow"),fill=c("pink","brown"))

6. Perbandingan Inflow dan Outflow pada Jambi

plot(datainflow$Tahun,datainflow$Jambi ,type = "l", col = "brown")
lines(dataoutflow$Tahun,dataoutflow$Jambi ,type = "l", col = "steel blue")
legend("top",c("Inflow","Outflow"),fill=c("brown","steel blue"))

7. Perbandingan Inflow dan Outflow pada Sumatera Selatan

plot(datainflow$Tahun,datainflow$`Sumatera Selatan` ,type = "l", col = "steel blue")
lines(dataoutflow$Tahun,dataoutflow$`Sumatera Selatan` ,type = "l", col = "green")
legend("top",c("Inflow","Outflow"),fill=c("steel blue", "green"))

8. Perbandingan Inflow dan Outflow pada Bengkulu

plot(datainflow$Tahun,datainflow$Bengkulu ,type = "l", col = "green ")
lines(dataoutflow$Tahun,dataoutflow$Bengkulu ,type = "l", col = "yellow")
legend("top",c("Inflow","Outflow"),fill=c("green","yellow"))

9. Perbandingan Inflow dan Outflow pada Lampung

plot(datainflow$Tahun,datainflow$Lampung ,type = "l", col = "yellow")
lines(dataoutflow$Tahun,dataoutflow$Lampung ,type = "l", col = "orange")
legend("top",c("Inflow","Outflow"),fill=c("yellow","orange"))

10. Perbandingan Inflow dan Outflow pada Kep. Bangka Belitung

plot(datainflow$Tahun,datainflow$`Kep. Bangka Belitung` ,type = "l", col = "orange")
lines(dataoutflow$Tahun,dataoutflow$`Kep. Bangka Belitung` ,type = "l", col = "blue")
legend("top",c("Inflow","Outflow"),fill=c("orange","blue"))