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

0.0.2 0.0.2 Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

0.0.3 0.0.3 Jurusan : Teknik Informatika

0.0.4 0.0.4 Fakultas : Sains dan Teknologi

1 Pengertian Inflow-Outflow Uang Kartal

Inflows adalah uang yang masuk ke Bank Indonesia melalui kegiatan penyetoran, dan outflows adalah uang yang keluar dari Bank Indonesia melalui kegiatan penarikan. Setiap daerah memiliki prediksi data inflow-outflow uang kartal yang berbeda-beda. Berikut komparasi visualisasi prediksi data inflow-outflow uang kartal antara Jambi dengan Sumatera Selatan menggunakan bahasa pemrograman R.

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflow <- read_excel(path = "inflowSumatra.xlsx")
datainflow
library(readxl)
dataoutflow <- read_excel(path = "outflowsumatra.xlsx")
dataoutflow

1. Komparasi Visualisasi Prediksi Data Inflow Uang Kartal di Jambi dan Sumatra Selatan Setiap Periode

plot(datainflow$Tahun,datainflow$Jambi,type = "l", col= "dodgerblue")
lines(datainflow$Tahun,datainflow$Jambi,col="red")
legend("top",c("Inflow Jambi","Inflow Jambi"),fill=c("dodgerblue","red"))

2. Komparasi Visualisasi Prediksi Data Outflow Uang Kartal di Jambi dan Sumatra Selatan Setiap Periode

plot(dataoutflow$Tahun,dataoutflow$`Jambi`,type = "l", col= "green")
lines(dataoutflow$Tahun,dataoutflow$Jambi,col="mediumorchid")
legend("top",c("Outflow Jambi","Outflow SumatraSelatan"),fill=c("green","mediumorchid"))

3. Komparasi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal di Jambi dan Sumatra Selatan Setiap Periode

plot(datainflow$Tahun,datainflow$`Jambi`,type = "l", col= "dodgerblue")
lines(datainflow$Tahun,datainflow$Jambi,col="gold")
lines(dataoutflow$Tahun,dataoutflow$`Jambi`, col= "green")
lines(dataoutflow$Tahun,dataoutflow$Jambi,col="mediumorchid")
legend("top",c("Inflow Jambi","Jambi","Outflow Jambi","Outflow Sumatra Selatan"),fill=c("dodgerblue","red","green","mediumorchid"))

4. Komparasi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal di Jambi dan Sumatra Selatan Setiap Bulan

library(readxl)
datainflowperbulan <- read_excel(path = "inflowperbulanSumatra.xlsx")
dataoutflowperbulan <- read_excel(path = "outflowperbulanSumatra.xlsx")
datainflowperbulan
dataoutflowperbulan
plot(datainflowperbulan$`Jambi`, type = "l", col = "tomato")
lines(datainflowperbulan$`Sumatera Selatan`,col="pink")

1.0.1 Referensi