Visualisasi dan Prediksi Data Inflow-Outflow Secara Nasional 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
G. Nasional
1.Prediksi Data Inflow-Outflow Uang Kartal Secara Nasional Setiap Tahun
library(readxl)
Inflow <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowNasional.xlsx")
Inflow## # A tibble: 11 × 2
## Keterangan Nasional
## <dbl> <dbl>
## 1 2011 293425.
## 2 2012 366257.
## 3 2013 436877.
## 4 2014 484225.
## 5 2015 509860.
## 6 2016 584603.
## 7 2017 603613.
## 8 2018 678559.
## 9 2019 745802.
## 10 2020 598749.
## 11 2021 458594.library(readxl)
Outflow <- read_excel(path ="/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowNasional.xlsx")
Outflow## # A tibble: 11 × 2
## Keterangan Nasional
## <dbl> <dbl>
## 1 2011 347615.
## 2 2012 429551.
## 3 2013 490007.
## 4 2014 512077.
## 5 2015 566329.
## 6 2016 610438.
## 7 2017 684924.
## 8 2018 728806.
## 9 2019 780241.
## 10 2020 703843.
## 11 2021 403322.2. Visualisasi Prediksi Data Inflow Uang Kartal Secara Nasional Setiap Tahun
plot(Inflow$Keterangan,Inflow$Nasional,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal Secara Nasional Setiap Tahun
plot(Outflow$Keterangan,Outflow$Nasional,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Secara Nasional Setiap Tahun
plot(Inflow$Keterangan,Inflow$Nasional,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$Nasional,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal Secara Nasional Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowNasionalPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowNasionalPerbulan.xlsx")
InflowNasionalPerbulan## # A tibble: 128 × 2
## Keterangan Nasional
## <dttm> <dbl>
## 1 2011-01-01 00:00:00 22865.
## 2 2011-02-01 00:00:00 17956.
## 3 2011-03-01 00:00:00 24536.
## 4 2011-04-01 00:00:00 17359.
## 5 2011-05-01 00:00:00 19570.
## 6 2011-06-01 00:00:00 18587.
## 7 2011-07-01 00:00:00 21029.
## 8 2011-08-01 00:00:00 15433.
## 9 2011-09-01 00:00:00 66038.
## 10 2011-10-01 00:00:00 25110.
## # … with 118 more rowslibrary(readxl)
OutflowNasionalPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowNasionalPerbulan.xlsx")
OutflowNasionalPerbulan## # A tibble: 128 × 2
## Keterangan Nasional
## <dttm> <dbl>
## 1 2011-01-01 00:00:00 7514.
## 2 2011-02-01 00:00:00 10685.
## 3 2011-03-01 00:00:00 18615.
## 4 2011-04-01 00:00:00 26649.
## 5 2011-05-01 00:00:00 24902.
## 6 2011-06-01 00:00:00 28774.
## 7 2011-07-01 00:00:00 31781.
## 8 2011-08-01 00:00:00 80329.
## 9 2011-09-01 00:00:00 11163.
## 10 2011-10-01 00:00:00 25339.
## # … with 118 more rows6. Visualisasi Prediksi Data Inflow Uang Kartal Secara Nasional Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowNasionalPerbulan$Keterangan,InflowNasionalPerbulan$Nasional,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal Secara Nasional Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowNasionalPerbulan$Keterangan,OutflowNasionalPerbulan$Nasional,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Secara Nasional Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowNasionalPerbulan$Nasional, type = "l", col = "blue")
lines(OutflowNasionalPerbulan$Nasional,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))