Visualisasi dan Prediksi Data Inflow-Outflow Di Kalimantan 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
E. Kalimantan
1. Prediksi Data Inflow-Outflow Uang Kartal Kalimantan Setiap Tahun
library(readxl)
Inflow <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowKalimantan.xlsx")
Inflow## # A tibble: 11 × 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Se…`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 13272. 2831. 779. 5369.
## 2 2012 17575. 3386. 1135. 7311.
## 3 2013 37698. 4029. 19328. 4226.
## 4 2014 26379. 5943. 1887. 9614.
## 5 2015 29427. 6675. 3547. 9558.
## 6 2016 32847. 7440. 3694. 10809.
## 7 2017 35119. 7775. 3655. 12415.
## 8 2018 41157. 10249. 4083. 13604.
## 9 2019 46158. 11848. 4385. 14462.
## 10 2020 37200. 9294. 4178. 11753.
## 11 2021 31372. 7598. 3534. 9655.
## # … with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>library(readxl)
Outflow <- read_excel(path ="/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowKalimantan.xlsx")
Outflow## # A tibble: 11 × 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Se…`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 29535. 5221. 6850. 5126.
## 2 2012 33444. 5698. 7741. 5580.
## 3 2013 44929. 6011. 15421. 5046.
## 4 2014 38772. 6764. 8346. 6265.
## 5 2015 41945. 8486. 10190. 6755.
## 6 2016 42179. 9402. 10131. 7424.
## 7 2017 50404. 11132. 11695. 9544.
## 8 2018 53989. 12278. 13040. 8476.
## 9 2019 57579. 13768. 12891. 9228.
## 10 2020 52060. 13501. 12518. 8222.
## 11 2021 30291. 6958. 7071. 5192.
## # … with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>2. Visualisasi Prediksi Data Inflow Uang Kartal Kalimantan Setiap Tahun
plot(Inflow$Keterangan,Inflow$Kalimantan,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal Kalimantan Setiap Tahun
plot(Outflow$Keterangan,Outflow$Kalimantan,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Kalimantan Setiap Tahun
plot(Inflow$Keterangan,Inflow$Kalimantan,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$Kalimantan,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal Kalimantan Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowKalimantanPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowKalimantanPerbulan.xlsx")
InflowKalimantanPerbulan## # A tibble: 128 × 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 982. 54.5 105.
## 2 2011-02-01 00:00:00 486. 40.8 55.8
## 3 2011-03-01 00:00:00 1150. 259. 64.3
## 4 2011-04-01 00:00:00 612. 91.0 45.2
## 5 2011-05-01 00:00:00 887. 217. 46.0
## 6 2011-06-01 00:00:00 850. 156. 74.6
## 7 2011-07-01 00:00:00 853. 189. 34.2
## 8 2011-08-01 00:00:00 648. 121. 24.0
## 9 2011-09-01 00:00:00 3685. 891. 213.
## 10 2011-10-01 00:00:00 1076. 296. 29.7
## # … with 118 more rows, and 3 more variables: `Kalimantan Selatan` <dbl>,
## # `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>library(readxl)
OutflowKalimantanPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowKalimantanPerbulan.xlsx")
OutflowKalimantanPerbulan## # A tibble: 128 × 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 582. 278. 167.
## 2 2011-02-01 00:00:00 859. 141. 318.
## 3 2011-03-01 00:00:00 1570. 155. 375.
## 4 2011-04-01 00:00:00 2337. 535. 591.
## 5 2011-05-01 00:00:00 2019. 272. 559.
## 6 2011-06-01 00:00:00 2439. 446. 657.
## 7 2011-07-01 00:00:00 2544. 436. 681.
## 8 2011-08-01 00:00:00 6258. 1040. 1030.
## 9 2011-09-01 00:00:00 671. 146. 175.
## 10 2011-10-01 00:00:00 2175. 217. 598.
## # … with 118 more rows, and 3 more variables: `Kalimantan Selatan` <dbl>,
## # `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>6. Visualisasi Prediksi Data Inflow Uang Kartal Kalimantan Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowKalimantanPerbulan$Keterangan,InflowKalimantanPerbulan$Kalimantan,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal Kalimantan Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowKalimantanPerbulan$Keterangan,OutflowKalimantanPerbulan$Kalimantan,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Kalimantan Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowKalimantanPerbulan$Kalimantan, type = "l", col = "blue")
lines(OutflowKalimantanPerbulan$Kalimantan,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
9. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Kalimantan Pertahun Selama 10 Tahun Terakhir Berdasarkan Daerah
a.) Kalimantan Barat
plot(Inflow$`Kalimantan Barat`, type = "l", col = "blue")
plot(Outflow$`Kalimantan Barat`, type = "l", col = "red")
plot(Inflow$`Kalimantan Barat`, type = "l", col = "blue")
lines(Outflow$`Kalimantan Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
b.) Kalimantan Tengah
plot(Inflow$`Kalimantan Tengah`, type = "l", col = "blue")
plot(Outflow$`Kalimantan Tengah`, type = "l", col = "red")
plot(Inflow$`Kalimantan Tengah`, type = "l", col = "blue")
lines(Outflow$`Kalimantan Tengah`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Kalimantan Selatan
plot(Inflow$`Kalimantan Selatan`, type = "l", col = "blue")
plot(Outflow$`Kalimantan Selatan`, type = "l", col = "red")
plot(Inflow$`Kalimantan Selatan`, type = "l", col = "blue")
lines(Outflow$`Kalimantan Selatan`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
d.) Kalimantan Timur
plot(Inflow$`Kalimantan Timur`, type = "l", col = "blue")
plot(Outflow$`Kalimantan Timur`, type = "l", col = "red")
plot(Inflow$`Kalimantan Timur`, type = "l", col = "blue")
lines(Outflow$`Kalimantan Timur`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Kalimantan Utara
plot(Inflow$`Kalimantan Utara`, type = "l", col = "blue")
plot(Outflow$`Kalimantan Utara`, type = "l", col = "red")
plot(Inflow$`Kalimantan Utara`, type = "l", col = "blue")
lines(Outflow$`Kalimantan Utara`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))