Visualisasi dan Prediksi Data Inflow-Outflow Di DKI Jakarta Tahun 2011-2021
Muhammad Zea Al Ghifari, Prof. Dr. Suhartono, M.Kom
26/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
B. DKI Jakarta
1.Prediksi Data Inflow-Outflow Uang Kartal DKI Jakarta Setiap Tahun
library(readxl)## Warning: package 'readxl' was built under R version 4.1.2Inflow <- read_excel(path = "C:/Users/ASUS/Downloads/InflowDKIJakarta.xlsx")
Inflow## # A tibble: 11 x 2
## Keterangan `DKI Jakarta`
## <dbl> <dbl>
## 1 2011 62958.
## 2 2012 76665.
## 3 2013 84526.
## 4 2014 92106.
## 5 2015 100426.
## 6 2016 115684.
## 7 2017 112213.
## 8 2018 126459.
## 9 2019 142940.
## 10 2020 110549.
## 11 2021 85530.library(readxl)
Outflow <- read_excel(path ="C:/Users/ASUS/Documents/excel_algebra/OutflowDKIJakarta.xlsx")
Outflow## # A tibble: 11 x 2
## Keterangan `DKI Jakarta`
## <dbl> <dbl>
## 1 2011 101604.
## 2 2012 136467.
## 3 2013 149241.
## 4 2014 152276.
## 5 2015 163750.
## 6 2016 170614.
## 7 2017 181553.
## 8 2018 187820.
## 9 2019 197818.
## 10 2020 163779.
## 11 2021 94033.2. Visualisasi Prediksi Data Inflow Uang Kartal DKI Jakarta Setiap Tahun
plot(Inflow$Keterangan,Inflow$`DKI Jakarta`,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal DKI Jakarta Setiap Tahun
plot(Outflow$Keterangan,Outflow$`DKI Jakarta`,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal DKI Jakarta Setiap Tahun
plot(Inflow$Keterangan,Inflow$`DKI Jakarta`,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$`DKI Jakarta`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal DKI Jakarta Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowDKIJakartaPerbulan <- read_excel(path = "C:/Users/ASUS/Documents/excel_algebra/InflowDKIJakartaPerbulan.xlsx")
InflowDKIJakartaPerbulan## # A tibble: 128 x 2
## Keterangan `DKI Jakarta`
## <dttm> <dbl>
## 1 2011-01-01 00:00:00 6487.
## 2 2011-02-01 00:00:00 5370.
## 3 2011-03-01 00:00:00 5289.
## 4 2011-04-01 00:00:00 3465.
## 5 2011-05-01 00:00:00 4238.
## 6 2011-06-01 00:00:00 4180.
## 7 2011-07-01 00:00:00 4035.
## 8 2011-08-01 00:00:00 2830.
## 9 2011-09-01 00:00:00 14097.
## 10 2011-10-01 00:00:00 5097.
## # ... with 118 more rowslibrary(readxl)
OutflowDKIJakartaPerbulan <- read_excel(path = "C:/Users/ASUS/Documents/excel_algebra/OutflowDKIJakartaPerbulan.xlsx")
OutflowDKIJakartaPerbulan## # A tibble: 128 x 2
## Keterangan `DKI Jakarta`
## <dttm> <dbl>
## 1 2011-01-01 00:00:00 989.
## 2 2011-02-01 00:00:00 2094.
## 3 2011-03-01 00:00:00 6418.
## 4 2011-04-01 00:00:00 8352.
## 5 2011-05-01 00:00:00 8201.
## 6 2011-06-01 00:00:00 8263.
## 7 2011-07-01 00:00:00 8808.
## 8 2011-08-01 00:00:00 22407.
## 9 2011-09-01 00:00:00 3977.
## 10 2011-10-01 00:00:00 8123.
## # ... with 118 more rows6. Visualisasi Prediksi Data Inflow Uang Kartal DKI Jakarta Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowDKIJakartaPerbulan$Keterangan,InflowDKIJakartaPerbulan$`DKI Jakarta`,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal DKI Jakarta Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowDKIJakartaPerbulan$Keterangan,OutflowDKIJakartaPerbulan$`DKI Jakarta`,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal DKI Jakarta Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowDKIJakartaPerbulan$`DKI Jakarta`, type = "l", col = "blue")
lines(OutflowDKIJakartaPerbulan$`DKI Jakarta`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))