Lembaga : UIN Maulana Malik Ibrahim, Teknik Informatika

Pengambilan kebijakan dalam menentukan peredaran uang kartal di masyarakat yang dilakukan oleh Bank Indonesia (BI) adalah Inflow dan Outflow uang kartal. Inflow dan Outflow uang kartal merupakan data deret waktu bulanan yang diduga dipengaruhi oleh waktu.

Data Inflow Uang Kartal dari bulan Januari sampai Desember 2020

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflow <- read_excel(path = "inflowBulan21.xlsx")
datainflow
## # A tibble: 12 x 11
##    Bulan                Aceh `Sumatera Utara` `Sumatera Barat`  Riau `Kep. Riau`
##    <dttm>              <dbl>            <dbl>            <dbl> <dbl>       <dbl>
##  1 2020-01-01 00:00:00 1642.            6477.            1937. 1567.        731.
##  2 2020-02-01 00:00:00  693.            3659.             868.  900.        637.
##  3 2020-03-01 00:00:00  297.            2723.             594.  657.        387.
##  4 2020-04-01 00:00:00  281.            2036.             586.  465.        525.
##  5 2020-05-01 00:00:00  489.            2380.             461.  832.        380.
##  6 2020-06-01 00:00:00 1095.            4344.            1753. 1646.        794.
##  7 2020-07-01 00:00:00  258.            3057.             721.  754.        507.
##  8 2020-08-01 00:00:00  593.            2371.             934.  643.        486.
##  9 2020-09-01 00:00:00  410.            2391.             842.  373.        527.
## 10 2020-10-01 00:00:00  274.            1909.             604.  524.        415.
## 11 2020-11-01 00:00:00  438.            2827.             893.  612.        516.
## 12 2020-12-01 00:00:00  171.            2435.             502.  174.        269.
## # ... with 5 more variables: Jambi <dbl>, `Sumatera Selatan` <dbl>,
## #   Bengkulu <dbl>, Lampung <dbl>, `Kep. Bangka Belitung` <dbl>

Data Inflow Uang Kartal dari bulan Januari sampai Desember 2020

library(readxl)
dataoutflow <- read_excel(path = "OutflowBulan21.xlsx")
dataoutflow
## # A tibble: 12 x 11
##    Bulan                Aceh `Sumatera Utara` `Sumatera Barat`  Riau `Kep. Riau`
##    <dttm>              <dbl>            <dbl>            <dbl> <dbl>       <dbl>
##  1 2020-01-01 00:00:00  182.            1456.            102.   740.        627.
##  2 2020-02-01 00:00:00  426.            2150.            308.   832.        494.
##  3 2020-03-01 00:00:00 1434.            3244.            782.  1264.        823.
##  4 2020-04-01 00:00:00 1432.            3371.            819.  1775.        708.
##  5 2020-05-01 00:00:00 1690.            4148.           2242.  2926.        964.
##  6 2020-06-01 00:00:00  436.            1474.             34.1  283.        221.
##  7 2020-07-01 00:00:00 1769.            3526.            651.  1530.        615.
##  8 2020-08-01 00:00:00  456.            3054.            566.  1470.        526.
##  9 2020-09-01 00:00:00  830.            2142.            343.  1394.        522.
## 10 2020-10-01 00:00:00 1175.            3857.            793.  2018.        967.
## 11 2020-11-01 00:00:00  774.            2151.            484.  1409.        506.
## 12 2020-12-01 00:00:00 2270.            9185.           1638.  3498.       1489.
## # ... with 5 more variables: Jambi <dbl>, `Sumatera Selatan` <dbl>,
## #   Bengkulu <dbl>, Lampung <dbl>, `Kep. Bangka Belitung` <dbl>

Disini saya akan membuat perbandingan analogi Uang Kartal Tiap Bulan Antara Sumatera Barat Dengan Aceh

  1. Analogi Perbandingan data inflow tiap bulan antara Sumatera Barat dengan Aceh
plot(datainflow$`Sumatera Barat` ,type = "l", col= "dodgerblue")
lines(datainflow$`Aceh`,col="red")
legend("top",c("Inflow Aceh","Inflow Sumatera Utara"),fill=c("dodgerblue","red"))

  1. Analogi Perbandingan data outflow tiap bulan antara Riau dengan Kep. Riau
plot(dataoutflow$`Sumatera Barat` ,type = "l", col= "green")
lines(dataoutflow$`Aceh`,col="yellow")
legend("top",c("Outflow Aceh","Outflow Sumatera Utara"),fill=c("green","yellow"))

3.Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Sumatera Barat dengan Aceh Setiap Bulan

plot(datainflow$`Sumatera Barat` ,type = "l", col= "dodgerblue")
lines(datainflow$Aceh,col="red")
lines(dataoutflow$`Sumatera Barat`, col= "green")
lines(dataoutflow$Aceh,col="mediumorchid")
legend("top",c("Inflow Sumatera Barat","Inflow Aceh","Outflow Sumatera Barat","Outflow Aceh"),fill=c("dodgerblue","red","green","mediumorchid"))

Disini saya akan membuat perbandingan analogi Uang Kartal Tiap Bulan Antara Riau Dengan Kep. Riau

  1. Analogi Perbandingan data inflow tiap bulan antara Riau dengan Kep. Riau
plot(datainflow$Riau ,type = "l", col= "orange")
lines(datainflow$`Kep. Riau`,col="pink")
legend("top",c("Inflow Riau","Inflow Kep. Riau"),fill=c("orange","pink"))

  1. Analogi Perbandingan data outflow tiap bulan antara Riau dengan Kep. Riau
plot(dataoutflow$Riau ,type = "l", col= "green")
lines(dataoutflow$`Kep. Riau`,col="yellow")
legend("top",c("Outflow Riau","Outflow Kep. Riau"),fill=c("green","yellow"))

3.Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Riau dengan Kep. Riau Setiap Bulan

plot(datainflow$Riau ,type = "l", col= "orange")
lines(datainflow$`Kep. Riau`,col="pink")
lines(dataoutflow$Riau, col= "green")
lines(dataoutflow$`Kep. Riau`,col="Yellow")
legend("top",c("Inflow Riau","Inflow Kep. Riau","Outflow Riau","Outflow Kep. Riau"),fill=c("Orange","pink","green","yellow"))