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

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Fakultas : Sains dan Teknologi

Jurusan : Teknik Informatika

Kelas : (C) Linear Algebra

NIM : 210605110058

Inflow dan Outflow Uang Kartal

Inflow merupakan uang yang masuk ke Bank Indonesia melalui kegiatan penyetoran, sedangkan outflow merupakan uang yang keluar dari Bank Indonesia melalui kegiatan penarikan.

Beberapa pembagian inflow-outflow berdasarkan daerahnya. antara lain, di Sumatra, DKI Jakarta, Jawa, Bali Nusra, Kalimantan, Sulampua, dan secara nasional. Pada kali ini saya akan memaparkan contoh visualisasi dan prediksi data Inflow-Outflow Uang Kartal di Indonesia menggunakan bahasa pemrograman R.

A. Sumatera

1.Prediksi Data Inflow-Outflow Uang Kartal Sumatera Setiap Tahun

library(readxl)
Inflow <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowSumatera.xlsx")
Inflow
## # A tibble: 11 × 12
##    Keterangan Sumatera   Aceh `Sumatera Utara` `Sumatera Barat`   Riau
##         <dbl>    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>
##  1       2011   57900.  2308.           23238.            9385.  3012.
##  2       2012   65911.  2620.           25981.           11192.  4447.
##  3       2013   98369. 36337.           18120.           14056.  8933.
##  4       2014   86024.  4567.           30503.           14103.  6358.
##  5       2015   86549.  4710.           30254.           13309.  7156.
##  6       2016   97764.  5775.           34427.           14078.  8211.
##  7       2017  103748.  5514.           35617.           15312.  8553.
##  8       2018  117495.  5799.           41769.           15058. 10730.
##  9       2019  133762.  7509.           47112.           14750. 10915.
## 10       2020  109345.  6641.           36609.           10696.  9148.
## 11       2021   89270.  3702.           31840.           10748.  7769.
## # … with 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>
library(readxl)
Outflow <- read_excel(path ="/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowSumatera.xlsx")
Outflow
## # A tibble: 11 × 12
##    Keterangan Sumatera   Aceh `Sumatera Utara` `Sumatera Barat`   Riau
##         <dbl>    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>
##  1       2011   80092.  6338.           22176.            5300. 12434.
##  2       2012   85235.  6378.           22495.            6434. 13014.
##  3       2013  103288. 23278.           19235.            6511. 15460.
##  4       2014  102338.  8630.           26391.            7060. 15158.
##  5       2015  109186.  9637.           27877.            7471. 15789.
##  6       2016  121992. 11311.           31959.            9198. 17645.
##  7       2017  133606. 11760.           35243.           10754. 18128.
##  8       2018  135676. 11450.           36908.            8447. 17926.
##  9       2019  153484. 13087.           44051.            9465. 19277.
## 10       2020  140589. 12874.           39758.            8763. 19139.
## 11       2021   86627.  5770.           23453.            5941. 12631.
## # … with 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>

2. Visualisasi Prediksi Data Inflow Uang Kartal Sumatera Setiap Tahun

plot(Inflow$Keterangan,Inflow$`Sumatera`,type = "l", col= "blue")

3. Visualisasi Prediksi Data Outflow Uang Kartal Sumatera Setiap Tahun

plot(Outflow$Keterangan,Outflow$`Sumatera`,type = "l", col= "red")

4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sumatera Setiap Tahun

plot(Inflow$Keterangan,Inflow$`Sumatera`,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$`Sumatera`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

5. Prediksi Data Inflow-Outflow Uang Kartal Sumatera Setiap Bulan Selama 10 Tahun Terakhir

library(readxl)
InflowSumateraPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowSumateraPerbulan.xlsx")
InflowSumateraPerbulan
## # A tibble: 128 × 12
##    Keterangan          Sumatera  Aceh `Sumatera Utara` `Sumatera Barat`   Riau
##    <dttm>                 <dbl> <dbl>            <dbl>            <dbl>  <dbl>
##  1 2011-01-01 00:00:00    4164.  124.            2068.             545.   94.2
##  2 2011-02-01 00:00:00    3338.  115.            1826.             450.   96.4
##  3 2011-03-01 00:00:00    4878.  154.            2028.             849.  288. 
##  4 2011-04-01 00:00:00    3157.  122.            1429.             539.  160. 
##  5 2011-05-01 00:00:00    3821.  123.            1539.             692.  195. 
##  6 2011-06-01 00:00:00    3686.  151.            1637.             592.  101. 
##  7 2011-07-01 00:00:00    4370.  107.            1791.             800.  143. 
##  8 2011-08-01 00:00:00    3668.  184.            1256.             586.  134. 
##  9 2011-09-01 00:00:00   12875.  606.            4172.            2176. 1014. 
## 10 2011-10-01 00:00:00    4777.  158.            1941.             787.  341. 
## # … with 118 more rows, and 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>
library(readxl)
OutflowSumateraPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowSumateraPerbulan.xlsx")
OutflowSumateraPerbulan
## # A tibble: 128 × 12
##    Keterangan          Sumatera  Aceh `Sumatera Utara` `Sumatera Barat`  Riau
##    <dttm>                 <dbl> <dbl>            <dbl>            <dbl> <dbl>
##  1 2011-01-01 00:00:00    3442.  350.             941.             307.  478.
##  2 2011-02-01 00:00:00    3989.  193.             990.             228.  400.
##  3 2011-03-01 00:00:00    4229.  230.            1209.             347.  621.
##  4 2011-04-01 00:00:00    6721.  529.            1653.             336. 1006.
##  5 2011-05-01 00:00:00    5787.  523.            1465.             328. 1000.
##  6 2011-06-01 00:00:00    7395.  406.            2167.             399. 1366.
##  7 2011-07-01 00:00:00    7154.  958.            1695.             449.  815.
##  8 2011-08-01 00:00:00   16043. 1046.            4104.            1376. 2729.
##  9 2011-09-01 00:00:00    1915.  124.             824.             148.  154.
## 10 2011-10-01 00:00:00    5174.  634.            1392.             299.  830.
## # … with 118 more rows, and 6 more variables: `Kep. Riau` <dbl>, Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>

6. Visualisasi Prediksi Data Inflow Uang Kartal Sumatera Setiap Bulan Selama 10 Tahun Terakhir

plot(InflowSumateraPerbulan$Keterangan,InflowSumateraPerbulan$`Sumatera`,type = "l", col= "blue")

7. Visualisasi Prediksi Data Outflow Uang Kartal Sumatera Setiap Bulan Selama 10 Tahun Terakhir

plot(OutflowSumateraPerbulan$Keterangan,OutflowSumateraPerbulan$`Sumatera`,type = "l", col= "red")

8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sumatera Setiap Bulan Selama 10 Tahun Terakhir

plot(InflowSumateraPerbulan$`Sumatera`, type = "l", col = "blue")
lines(OutflowSumateraPerbulan$`Sumatera`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

9. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sumatera Pertahun Selama 10 Tahun Terakhir Berdasarkan Daerah

a.) Aceh

plot(Inflow$`Aceh`, type = "l", col = "blue")

plot(Outflow$`Aceh`, type = "l", col = "red")

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

b.) Sumatera Utara

plot(Inflow$`Sumatera Utara`, type = "l", col = "blue")

plot(Outflow$`Sumatera Utara`, type = "l", col = "red")

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

c.) Sumatera Barat

plot(Inflow$`Sumatera Barat`, type = "l", col = "blue")

plot(Outflow$`Sumatera Barat`, type = "l", col = "red")

plot(Inflow$`Sumatera Barat`, type = "l", col = "blue")
lines(Outflow$`Sumatera Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

d.) Riau

plot(Inflow$`Riau`, type = "l", col = "blue")

plot(Outflow$`Riau`, type = "l", col = "red")

plot(Inflow$`Riau`, type = "l", col = "blue")
lines(Outflow$`Riau`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

e.) Kepulauan Riau

plot(Inflow$`Kep. Riau`, type = "l", col = "blue")

plot(Outflow$`Kep. Riau`, type = "l", col = "red")

plot(Inflow$`Kep. Riau`, type = "l", col = "blue")
lines(Outflow$`Kep. Riau`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

f.) Jambi

plot(Inflow$`Jambi`, type = "l", col = "blue")

plot(Outflow$`Jambi`, type = "l", col = "red")

plot(Inflow$`Jambi`, type = "l", col = "blue")
lines(Outflow$`Jambi`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

g.) Sumatera Selatan

plot(Inflow$`Sumatera Selatan`, type = "l", col = "blue")

plot(Outflow$`Sumatera Selatan`, type = "l", col = "red")

plot(Inflow$`Sumatera Selatan`, type = "l", col = "blue")
lines(Outflow$`Sumatera Selatan`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

h.) Bengkulu

plot(Inflow$`Bengkulu`, type = "l", col = "blue")

plot(Outflow$`Bengkulu`, type = "l", col = "red")

plot(Inflow$`Bengkulu`, type = "l", col = "blue")
lines(Outflow$`Bengkulu`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

i.) Lampung

plot(Inflow$`Lampung`, type = "l", col = "blue")

plot(Outflow$`Lampung`, type = "l", col = "red")

plot(Inflow$`Lampung`, type = "l", col = "blue")
lines(Outflow$`Lampung`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

j.) Kepulauan Bangka Belitung

plot(Inflow$`Kep. Bangka Belitung`, type = "l", col = "blue")

plot(Outflow$`Kep. Bangka Belitung`, type = "l", col = "red")

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