Analogi Visualisasi dan Prediksi Uang Kartal di Bali Nusra Perbulan pada Tahun 2016

Dosen Pengampu: Prof. Dr. Suhartono, M.Kom

Mata Kuliah: Linear Algebra (A)

Prodi: Teknik Informatika

Lembaga: Universitas Islam Negeri Maulana Malik Ibrahim Malang

Pengertian

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 2016

library(readxl)

## Warning: package 'readxl' was built under R version 4.1.2

databulan <- read_excel(path = "InflowBaliNusraTh2016.xlsx")
databulan

## # A tibble: 12 x 5
##    Bulan               `Bali Nusra`  Bali `Nusa Tenggara Barat` `Nusa Tenggara~`
##    <dttm>                     <dbl> <dbl>                 <dbl>            <dbl>
##  1 2016-01-01 00:00:00        4136. 2075.                 1123.             938.
##  2 2016-02-01 00:00:00        2924. 1652.                  755.             518.
##  3 2016-03-01 00:00:00        2402. 1349.                  677.             376.
##  4 2016-04-01 00:00:00        1773. 1088.                  424.             261.
##  5 2016-05-01 00:00:00        2110. 1354.                  487.             269.
##  6 2016-06-01 00:00:00        1809.  953.                  649.             208.
##  7 2016-07-01 00:00:00        4130. 2202.                 1477.             451.
##  8 2016-08-01 00:00:00        2263. 1281.                  743.             240.
##  9 2016-09-01 00:00:00        2608. 1804.                  551.             253.
## 10 2016-10-01 00:00:00        2232. 1450.                  574.             207.
## 11 2016-11-01 00:00:00        2438. 1467.                  672.             298.
## 12 2016-12-01 00:00:00        2139. 1239.                  710.             190.

Data Outflow Uang Kartal dari bulan Januari sampai Desember 2016

library(readxl)
dataoutbulan <- read_excel(path = "OutflowBaliNusraTh2016.xlsx")
dataoutbulan

## # A tibble: 12 x 5
##    Bulan               `Bali Nusra`  Bali `Nusa Tenggara Barat` `Nusa Tenggara~`
##    <dttm>                     <dbl> <dbl>                 <dbl>            <dbl>
##  1 2016-01-01 00:00:00         898.  468.                  379.             51.4
##  2 2016-02-01 00:00:00        1620. 1284.                  204.            132. 
##  3 2016-03-01 00:00:00        1793. 1186.                  458.            150. 
##  4 2016-04-01 00:00:00        2071. 1072.                  724.            275. 
##  5 2016-05-01 00:00:00        2530. 1333.                  805.            392. 
##  6 2016-06-01 00:00:00        5500. 2702.                 1781.           1017. 
##  7 2016-07-01 00:00:00        2721. 1644.                  543.            534. 
##  8 2016-08-01 00:00:00        2582. 1701.                  483.            397. 
##  9 2016-09-01 00:00:00        2960. 1781.                  768.            411. 
## 10 2016-10-01 00:00:00        2578. 1468.                  640.            470. 
## 11 2016-11-01 00:00:00        2435. 1338.                  673.            423. 
## 12 2016-12-01 00:00:00        4253. 2163.                  691.           1399.

Disini saya akan membuat perbandingan analogi Uang Kartal dari Provinsi Bali dengan Nusa Tenggara Barat

1.Analogi Perbandingan data inflow tiap bulan antara Bali dengan Nusa Tenggara Barat

plot(databulan$`Bali`,type = "l", col= "blue")
lines(databulan$`Nusa Tenggara Barat`,col="red")
legend("top",c("Inflow Bali","Inflow Nusa Tenggara Barat"),fill=c("blue","red"))

Analogi Perbandingan data outflow tiap bulan antara Bali dengan Nusa Tenggara Barat

plot(dataoutbulan$`Bali`,type = "l", col= "green")
lines(dataoutbulan$`Nusa Tenggara Barat`,col="mediumorchid")
legend("top",c("Outflow Bali","Outflow Nusa Tenggara barat"),fill=c("green","mediumorchid"))

Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Bali dengan Nusa Tenggara Barat setiap bulan

plot(databulan$`Bali`,type = "l", col= "blue")
lines(databulan$`Nusa Tenggara Barat`,col="red")
lines(dataoutbulan$`Bali`, col= "green")
lines(dataoutbulan$`Nusa Tenggara Barat`,col="mediumorchid")
legend("top",c("Inflow Bali","Inflow Nusa Tenggara Barat","Outflow Bali","Outflow Nusa Tenggara Barat"),fill=c("blue","red","green","mediumorchid"))

Disini saya akan membuat perbandingan analogi Uang Kartal dari Provinsi Bali dan Nusa Tenggara Timur

1.Analogi Perbandingan data inflow tiap bulan antara Bali dan Nusa Tenggara Timur

plot(databulan$`Bali`,type = "l", col= "cyan")
lines(databulan$`Nusa Tenggara Timur`,col="purple")
legend("top",c("Inflow Bali","Inflow Nusa Tenggara Timur"),fill=c("cyan","purple"))

Analogi Perbandingan data outflow tiap bulan antara Bali dan Nusa Tenggara Timur

plot(dataoutbulan$`Bali`,type = "l", col= "green")
lines(dataoutbulan$`Nusa Tenggara Timur`,col="red")
legend("top",c("Outflow Bali","Outflow Nusa Tenggara Timur"),fill=c("green","red"))

Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Bali dan Nusa Tenggara Timur setiap bulan

plot(databulan$`Bali`,type = "l", col= "dodgerblue")
lines(databulan$`Nusa Tenggara Timur`,col="red")
lines(dataoutbulan$`Bali`, col= "green")
lines(dataoutbulan$`Nusa Tenggara Timur`,col="mediumorchid")
legend("top",c("Inflow Bali","Inflow Nusa Tenggara Timur","Outflow Bali","Outflow Nusa Tenggara Timur"),fill=c("dodgerblue","red","green","mediumorchid"))

Referensi

https://rpubs.com/suhartono-uinmaliki/861286

https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx

Analogi Visualisasi dan Prediksi Uang Kartal di Bali Nusra Perbulan pada Tahun 2016

Siti Rofidatus Saidah

2/26/2022