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

Mata Kuliah: Linear Algebra (A)

Prodi: Teknik Informatika

Lembaga: Universitas Islam Negeri Maulana Malik Ibrahim Malang

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 = "InflowJawa.xlsx")
datainflow
## # A tibble: 11 x 7
##    Tahun    Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur` Banten
##    <dbl>   <dbl>        <dbl>         <dbl>      <dbl>        <dbl>  <dbl>
##  1  2011 123917.       43775.        35137.      6490.       38515.     0 
##  2  2012 160482.       60629.        43298.      9173.       47383.     0 
##  3  2013 134998.       35190.        42182.      8939.       48687.     0 
##  4  2014 217303.       78660.        60476.     13890.       64276.     0 
##  5  2015 230141.       81303.        65198.     14831.       68808.     0 
##  6  2016 261607.       88036.        72782.     17350.       83439.     0 
##  7  2017 277609.       83220.        77031.     17483.       98380.  1495.
##  8  2018 306911.       87243.        87829.     20574.      106433.  4832.
##  9  2019 324624.       94846.        90751.     20899.      113651.  4477.
## 10  2020 259444.       76883.        84970.      7348.       86848.  3396.
## 11  2021 187816.       57295.        62024.      6714.       58986.  2798.
library(readxl)
dataoutflow <- read_excel(path = "OutflowJawa.xlsx")
dataoutflow
## # A tibble: 11 x 7
##    Tahun    Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur` Banten
##    <dbl>   <dbl>        <dbl>         <dbl>      <dbl>        <dbl>  <dbl>
##  1  2011  83511.       20782.        19975.      7538.       35217.     0 
##  2  2012 111363.       28895.        28493.      9486.       44489.     0 
##  3  2013  98969.       23067.        29529.      9708.       36665.     0 
##  4  2014 147069.       40857.        39110.     13171.       53931.     0 
##  5  2015 171568.       47063.        46840.     14080.       63585.     0 
##  6  2016 190568.       49405.        53659.     13013.       74491.     0 
##  7  2017 228905.       53825.        62761.     16810.       93396.  2113.
##  8  2018 253125.       61358.        69368.     20357.       97995.  4047.
##  9  2019 271957.       61692.        72363.     21353.      105514. 11035.
## 10  2020 251363.       57235.        72342.     16619.       93374. 11793.
## 11  2021 143340.       34763.        44455.      9652.       46029.  8441.

1.Data Inflow Uang Kartal di Jawa

plot(datainflow$Tahun,datainflow$'Jawa',type = "l", col = "cyan")

2. Data Outflow Uang Kartal di Jawa

plot(dataoutflow$Tahun,dataoutflow$'Jawa', type = "l", col = "red")

3. Data Inflow-Outflow Uang Kartal di Jawa

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

4. Data Inflow Uang Kartal di Jawa Barat

plot(datainflow$Tahun,datainflow$`Jawa Barat`, type = "l", col = "mediumorchid")

5. Data Outflow Uang Kartal di Jawa Barat

plot(dataoutflow$Tahun,dataoutflow$'Jawa Barat', type = "l", col = "blue")

6.Data Inflow-Outflow Uang Kartal di Jawa Barat

plot(datainflow$Tahun,datainflow$'Jawa Barat', type = "l", col = "mediumorchid")
lines(dataoutflow$Tahun,dataoutflow$'Jawa Barat', type = "l", col = "blue")
legend("top",c("Inflow","Outflow"),fill=c("mediumorchid","blue"))

7. Data Inflow Uang Kartal di Jawa Tengah

plot(datainflow$Tahun,datainflow$`Jawa Tengah`, type = "l", col = "dodgerblue")

8. Data Outflow Uang Kartal di Jawa Tengah

plot(dataoutflow$Tahun,dataoutflow$'Jawa Tengah', type = "l", col = "green")

9. Data Inflow-Outflow Uang Kartal di Jawa Tengah

plot(datainflow$Tahun,datainflow$'Jawa Tengah', type = "l", col = "dodgerblue")
lines(dataoutflow$Tahun,dataoutflow$'Jawa Tengah', type = "l", col = "green")
legend("top",c("Inflow","Outflow"),fill=c("dodgerblue","green"))

10. Data Inflow Uang Kartal di Yogyakarta

plot(datainflow$Tahun,datainflow$`Yogyakarta`, type = "l", col = "darkgray")

11. Data Outflow Uang Kartal di Yogyakarta

plot(dataoutflow$Tahun,dataoutflow$'Yogyakarta', type = "l", col = "red")

12. Data Inflow-Outflow Uang Kartal di Yogyakarta

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

13. Data Inflow Uang Kartal di Jawa Timur

plot(datainflow$Tahun,datainflow$`Jawa Timur`, type = "l", col = "red")

14. Data Outflow Uang Kartal di Jawa Timur

plot(dataoutflow$Tahun,dataoutflow$'Jawa Timur', type = "l", col = "green")

15. Data Inflow-Outflow Uang Kartal di Jawa Timur

plot(datainflow$Tahun,datainflow$'Jawa Timur', type = "l", col = "red")
lines(dataoutflow$Tahun,dataoutflow$'Jawa Timur', type = "l", col = "green")
legend("top",c("Inflow","Outflow"),fill=c("red","green"))

16. Data Inflow Uang Kartal di Banten

plot(datainflow$Tahun,datainflow$`Banten`, type = "l", col = "cyan")

Data Outflow Uang Kartal di Banten__

plot(dataoutflow$Tahun,dataoutflow$'Banten', type = "l", col = "purple")

Data Inflow-Outflow Uang Kartal di Banten

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

Referensi

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