Visualisasi dan Prediksi Data Inflow-Outflow Di Jawa Tahun 2011-2021
Aisha Dwi Anindita Radianto, Prof. Dr. Suhartono, M.Kom
14/03/2022
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
C. Jawa
1. Prediksi Data Inflow-Outflow Uang Kartal Jawa Setiap Tahun
library(readxl)
Inflow <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowJawa.xlsx")
Inflow## # A tibble: 11 × 7
## Keterangan 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)
Outflow <- read_excel(path ="/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowJawa.xlsx")
Outflow## # A tibble: 11 × 7
## Keterangan 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.2. Visualisasi Prediksi Data Inflow Uang Kartal Jawa Setiap Tahun
plot(Inflow$Keterangan,Inflow$Jawa,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal Jawa Setiap Tahun
plot(Outflow$Keterangan,Outflow$Jawa,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Jawa Setiap Tahun
plot(Inflow$Keterangan,Inflow$Jawa,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$Jawa,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal Jawa Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowJawaPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowJawaPerbulan.xlsx")
InflowJawaPerbulan## # A tibble: 128 × 7
## Keterangan Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur`
## <dttm> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 7736. 1980. 2254. 431. 3071.
## 2 2011-02-01 00:00:00 6667. 1726. 1823. 186. 2932.
## 3 2011-03-01 00:00:00 10318. 3718. 3085. 461. 3054.
## 4 2011-04-01 00:00:00 7826. 2864. 2290. 291. 2381.
## 5 2011-05-01 00:00:00 8166. 3169. 2202. 375. 2419.
## 6 2011-06-01 00:00:00 7442. 2971. 2036. 436. 1998.
## 7 2011-07-01 00:00:00 9051. 3615. 2607. 499. 2330.
## 8 2011-08-01 00:00:00 6073. 2398. 1496. 293. 1887.
## 9 2011-09-01 00:00:00 28450. 9581. 8534. 1568. 8767.
## 10 2011-10-01 00:00:00 11368. 3975. 3340. 740. 3314.
## # … with 118 more rows, and 1 more variable: Banten <dbl>library(readxl)
OutflowJawaPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowJawaPerbulan.xlsx")
OutflowJawaPerbulan## # A tibble: 128 × 7
## Keterangan Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur`
## <dttm> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 1113. 181. 123. 186. 622.
## 2 2011-02-01 00:00:00 2304. 445. 425. 272. 1161.
## 3 2011-03-01 00:00:00 3427. 762. 535. 312. 1819.
## 4 2011-04-01 00:00:00 5427. 1246. 1165. 467. 2548.
## 5 2011-05-01 00:00:00 5168. 1110. 1372. 485. 2202.
## 6 2011-06-01 00:00:00 6644. 1417. 1717. 629. 2882.
## 7 2011-07-01 00:00:00 8652. 2034. 2318. 597. 3703.
## 8 2011-08-01 00:00:00 26309. 6858. 7200. 2185. 10065.
## 9 2011-09-01 00:00:00 2440. 541. 427. 474. 998.
## 10 2011-10-01 00:00:00 5599. 1310. 1148. 694. 2447.
## # … with 118 more rows, and 1 more variable: Banten <dbl>6. Visualisasi Prediksi Data Inflow Uang Kartal Jawa Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowJawaPerbulan$Keterangan,InflowJawaPerbulan$Jawa,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal Jawa Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowJawaPerbulan$Keterangan,OutflowJawaPerbulan$Jawa,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Jawa Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowJawaPerbulan$Jawa, type = "l", col = "blue")
lines(OutflowJawaPerbulan$Jawa,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
9. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Jawa Pertahun Selama 10 Tahun Terakhir Berdasarkan Daerah
a.) Jawa barat
plot(Inflow$`Jawa Barat`, type = "l", col = "blue")
plot(Outflow$`Jawa Barat`, type = "l", col = "red")
plot(Inflow$`Jawa Barat`, type = "l", col = "blue")
lines(Outflow$`Jawa Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
b.) Jawa Tengah
plot(Inflow$`Jawa Tengah`, type = "l", col = "blue")
plot(Outflow$`Jawa Tengah`, type = "l", col = "red")
plot(Inflow$`Jawa Tengah`, type = "l", col = "blue")
lines(Outflow$`Jawa Tengah`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Yogyakarta
plot(Inflow$Yogyakarta, type = "l", col = "blue")
plot(Outflow$Yogyakarta, type = "l", col = "red")
plot(Inflow$Yogyakarta, type = "l", col = "blue")
lines(Outflow$Yogyakarta, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
d.) Jawa Timur
plot(Inflow$`Jawa Timur`, type = "l", col = "blue")
plot(Outflow$`Jawa Timur`, type = "l", col = "red")
plot(Inflow$`Jawa Timur`, type = "l", col = "blue")
lines(Outflow$`Jawa Timur`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Banten
plot(Inflow$Banten, type = "l", col = "blue")
plot(Outflow$Banten, type = "l", col = "red")
plot(Inflow$Banten, type = "l", col = "blue")
lines(Outflow$Banten, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))