Visualisasi dan Prediksi Data Inflow-Outflow Uang Kartal di Bali dan Nusra
Siti Rofidatus Saidah. Prof. Dr. Suhartono,M.Kom
2/11/2022
Universitas Islam Negri Maulana Malik Ibrahim Malang
Teknik Informatika
Linear Algebra (c)
library(readxl)## Warning: package 'readxl' was built under R version 4.1.2datainflow <- read_excel(path = "baliinflow.xlsx")
datainflow## # A tibble: 11 x 5
## Tahun `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)
dataoutflow <- read_excel(path = "balioutflow.xlsx")
dataoutflow## # A tibble: 11 x 5
## Tahun `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.1. Data Inflow Uang Kartal di Bali
plot(datainflow$Tahun,datainflow$'Bali',type = "l", col = "darkgray")
2. Data Outflow Uang Kartal di Bali
plot(dataoutflow$Tahun,dataoutflow$'Bali', type = "l", col = "red")
3. Data Inflow-Outflow Uang Kartal di Bali
plot(datainflow$Tahun,datainflow$'Bali', type = "l", col = "darkgray")
lines(dataoutflow$Tahun,dataoutflow$'Bali', type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("darkgray","red"))
4. Data Inflow Uang Kartal di Nusa Tenggara Barat
plot(datainflow$Tahun,datainflow$`Nusa Tenggara Barat`, type = "l", col = "blue")
5. Data Outflow Uang Kartal di Nusa Tenggara Barat
plot(dataoutflow$Tahun,dataoutflow$'Nusa Tenggara Barat', type = "l", col = "green")
6. Data Inflow-Outflow Uang Kartal di Nusa Tenggara Barat
plot(datainflow$Tahun,datainflow$'Nusa Tenggara Barat', type = "l", col = "blue")
lines(dataoutflow$Tahun,dataoutflow$'Nusa Tenggara Barat', type = "l", col = "green")
legend("top",c("Inflow","Outflow"),fill=c("blue","green"))
7. Data Inflow Uang Kartal di Nusa Tenggara Timur
plot(datainflow$Tahun,datainflow$`Nusa Tenggara Timur`, type = "l", col = "pink")
8. Data Outflow Uang Katal di Nusa Tenggara Timur
plot(dataoutflow$Tahun,dataoutflow$'Nusa Tenggara Timur', type = "l", col = "purple")
9. Data Inflow-Outflow Uang Kartal di Nusa Tenggara Timur
plot(datainflow$Tahun,datainflow$'Nusa Tenggara Timur', type = "l", col = "pink")
lines(dataoutflow$Tahun,dataoutflow$'Nusa Tenggara Timur', type = "l", col = "purple")
legend("top",c("Inflow","Outflow"),fill=c("pink","purple"))
Referensi