Visualisasi dan Prediksi Data Inflow-Outflow Di Bali Nusra Tahun 2011-2021
Muhammad zea al ghifari, Prof. Dr. Suhartono, M.Kom
27/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 : 210605110035
D. Bali Nusra
1.Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Tahun
library(readxl)## Warning: package 'readxl' was built under R version 4.1.2Inflow <- read_excel(path = "C:/Users/ASUS/Documents/excel_algebra/InflowBaliNusra.xlsx")
Inflow## # A tibble: 11 x 5
## Keterangan `Bali Nusra` Bali `Nusa Tenggara Barat` `Nusa Tenggara Timur`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 10322. 6394. 1803. 2125.
## 2 2012 14613. 8202. 3676. 2735.
## 3 2013 17512. 5066. 7024. 5422.
## 4 2014 20807. 11590. 5704. 3512.
## 5 2015 23008. 13072. 6285. 3651.
## 6 2016 30965. 17914. 8842. 4210.
## 7 2017 30797. 16962. 8383. 5452.
## 8 2018 33866. 18610. 9140. 6116.
## 9 2019 38116. 21422. 9614. 7080.
## 10 2020 29400. 14735. 8007. 6657.
## 11 2021 18892. 7505. 5888. 5498.library(readxl)
Outflow <- read_excel(path ="C:/Users/ASUS/Documents/excel_algebra/OutflowBaliNusra.xlsx")
Outflow## # A tibble: 11 x 5
## Keterangan `Bali Nusra` Bali `Nusa Tenggara Barat` `Nusa Tenggara Timur`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 16424. 8912. 3819. 3693.
## 2 2012 19421. 10782. 4379. 4260.
## 3 2013 29399. 7248. 10628. 11524.
## 4 2014 23391. 13104. 5620. 4668.
## 5 2015 26728. 14471. 6728. 5530.
## 6 2016 31941. 18140. 8149. 5652.
## 7 2017 34160. 17822. 8770. 7569.
## 8 2018 37260. 20434. 9271. 7555.
## 9 2019 38680. 20654. 10288. 7738.
## 10 2020 31224. 14323. 8546. 8356.
## 11 2021 15224. 6531. 5222. 3472.2. Visualisasi Prediksi Data Inflow Uang Kartal Bali Nusra Setiap Tahun
plot(Inflow$Keterangan,Inflow$`Bali Nusra`,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal Bali Nusra Setiap Tahun
plot(Outflow$Keterangan,Outflow$`Bali Nusra`,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Tahun
plot(Inflow$Keterangan,Inflow$`Bali Nusra`,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$`Bali Nusra`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowBaliNusraPerbulan <- read_excel(path = "C:/Users/ASUS/Documents/excel_algebra/InflowBaliNusraPerbulan.xlsx")
InflowBaliNusraPerbulan## # A tibble: 128 x 5
## Keterangan `Bali Nusra` Bali `Nusa Tenggara Barat` `Nusa Tenggara~`
## <dttm> <dbl> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 912. 463. 93.8 354.
## 2 2011-02-01 00:00:00 591. 401. 82.1 108.
## 3 2011-03-01 00:00:00 869. 532. 125. 212.
## 4 2011-04-01 00:00:00 709. 431. 124. 154.
## 5 2011-05-01 00:00:00 754. 474. 113. 167.
## 6 2011-06-01 00:00:00 633. 393. 105. 135.
## 7 2011-07-01 00:00:00 856. 585. 137. 134.
## 8 2011-08-01 00:00:00 607. 328. 136. 143.
## 9 2011-09-01 00:00:00 1965. 1434. 292. 239.
## 10 2011-10-01 00:00:00 874. 522. 184. 169.
## # ... with 118 more rowslibrary(readxl)
OutflowBaliNusraPerbulan <- read_excel(path = "C:/Users/ASUS/Documents/excel_algebra/OutflowBaliNusraPerbulan.xlsx")
OutflowBaliNusraPerbulan## # A tibble: 128 x 5
## Keterangan `Bali Nusra` Bali `Nusa Tenggara Barat` `Nusa Tenggara~`
## <dttm> <dbl> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 423. 177. 194. 51.9
## 2 2011-02-01 00:00:00 482. 353. 40.9 87.6
## 3 2011-03-01 00:00:00 989. 581. 273. 136.
## 4 2011-04-01 00:00:00 1207. 662. 343. 202.
## 5 2011-05-01 00:00:00 1168. 652. 279. 237.
## 6 2011-06-01 00:00:00 1476. 852. 351. 273.
## 7 2011-07-01 00:00:00 1536. 746. 319. 471.
## 8 2011-08-01 00:00:00 3084. 1888. 796. 400.
## 9 2011-09-01 00:00:00 926. 458. 293. 175.
## 10 2011-10-01 00:00:00 1321. 609. 399. 313.
## # ... with 118 more rows6. Visualisasi Prediksi Data Inflow Uang Kartal Bali Nusra Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowBaliNusraPerbulan$Keterangan,InflowBaliNusraPerbulan$`Bali Nusra`,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal Bali Nusra Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowBaliNusraPerbulan$Keterangan,OutflowBaliNusraPerbulan$`Bali Nusra`,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowBaliNusraPerbulan$`Bali Nusra`, type = "l", col = "blue")
lines(OutflowBaliNusraPerbulan$`Bali Nusra`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
9. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Pertahun Selama 10 Tahun Terakhir Berdasarkan Daerah
a.) Bali Nusra
plot(Inflow$`Bali Nusra`, type = "l", col = "blue")
plot(Outflow$`Bali Nusra`, type = "l", col = "red")
plot(Inflow$`Bali Nusra`, type = "l", col = "blue")
lines(Outflow$`Bali Nusra`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
b.) Bali
plot(Inflow$Bali, type = "l", col = "blue")
plot(Outflow$Bali, type = "l", col = "red")
plot(Inflow$Bali, type = "l", col = "blue")
lines(Outflow$Bali, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Nusa Tenggara Barat
plot(Inflow$`Nusa Tenggara Barat`, type = "l", col = "blue")
plot(Outflow$`Nusa Tenggara Barat`, type = "l", col = "red")
plot(Inflow$`Nusa Tenggara Barat`, type = "l", col = "blue")
lines(Outflow$`Nusa Tenggara Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
d.) Nusa Tenggara Timur
plot(Inflow$`Nusa Tenggara Timur`, type = "l", col = "blue")
plot(Outflow$`Nusa Tenggara Timur`, type = "l", col = "red")
plot(Inflow$`Nusa Tenggara Timur`, type = "l", col = "blue")
lines(Outflow$`Nusa Tenggara Timur`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))