Visualisasi dan Prediksi Data Inflow-Outflow Di Sulampua 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
F. Sulampua
1.Prediksi Data Inflow-Outflow Uang Kartal Sulampua Setiap Tahun
library(readxl)
Inflow <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowSulampua.xlsx")
Inflow## # A tibble: 11 × 12
## Keterangan Sulampua `Sulawesi Utara` `Sulawesi Tengah` `Sulawesi Selatan`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 25056. 5671. 1563. 10593.
## 2 2012 31011. 6635. 1885. 13702.
## 3 2013 63774. 21646. 1520. 17770.
## 4 2014 41607. 7374. 3000. 19384.
## 5 2015 40309. 6286. 2593. 19583.
## 6 2016 45737. 7266. 2665. 21043.
## 7 2017 44126. 7044. 2806. 18803.
## 8 2018 52672. 7781. 3701. 21894.
## 9 2019 60202. 7809. 4042. 24749.
## 10 2020 52812. 6324. 3052. 21551.
## 11 2021 45714. 4671. 2453. 18335.
## # … with 7 more variables: `Sulawesi Tenggara` <dbl>, `Sulawesi Barat` <dbl>,
## # Gorontalo <dbl>, `Maluku Utara` <dbl>, Maluku <dbl>, Papua <dbl>,
## # `Papua Barat` <dbl>library(readxl)
Outflow <- read_excel(path ="/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowSulampua.xlsx")
Outflow## # A tibble: 11 × 12
## Keterangan Sulampua `Sulawesi Utara` `Sulawesi Tengah` `Sulawesi Selatan`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 36449. 6606. 4017. 8967.
## 2 2012 43623. 6375. 4458. 11873.
## 3 2013 64181. 22740. 4544. 11485.
## 4 2014 48231. 7207. 5696. 15645.
## 5 2015 53153. 7202. 5310. 16236.
## 6 2016 53145. 7707. 4962. 15494.
## 7 2017 56297. 8421. 5226. 15159.
## 8 2018 60935. 7605. 5578. 16779.
## 9 2019 60723. 7367. 5531. 18089.
## 10 2020 64828. 7437. 4674. 20503.
## 11 2021 33806. 3050. 2763. 12017.
## # … with 7 more variables: `Sulawesi Tenggara` <dbl>, `Sulawesi Barat` <dbl>,
## # Gorontalo <dbl>, `Maluku Utara` <dbl>, Maluku <dbl>, Papua <dbl>,
## # `Papua Barat` <dbl>2. Visualisasi Prediksi Data Inflow Uang Kartal Sulampua Setiap Tahun
plot(Inflow$Keterangan,Inflow$Sulampua,type = "l", col= "blue")
3. Visualisasi Prediksi Data Outflow Uang Kartal Sulampua Setiap Tahun
plot(Outflow$Keterangan,Outflow$Sulampua,type = "l", col= "red")
4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sulampua Setiap Tahun
plot(Inflow$Keterangan,Inflow$Sulampua,type = "l", col= "blue")
lines(Outflow$Keterangan,Outflow$Sulampua,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
5. Prediksi Data Inflow-Outflow Uang Kartal Sulampua Setiap Bulan Selama 10 Tahun Terakhir
library(readxl)
InflowSulampuaPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/InflowSulampuaPerbulan.xlsx")
InflowSulampuaPerbulan## # A tibble: 128 × 12
## Keterangan Sulampua `Sulawesi Utara` `Sulawesi Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 2584. 861. 167.
## 2 2011-02-01 00:00:00 1504. 353. 46.1
## 3 2011-03-01 00:00:00 2032. 415. 133.
## 4 2011-04-01 00:00:00 1591. 342. 91.5
## 5 2011-05-01 00:00:00 1704. 379. 106.
## 6 2011-06-01 00:00:00 1795. 413. 77.0
## 7 2011-07-01 00:00:00 1863. 480. 113.
## 8 2011-08-01 00:00:00 1606. 415. 76.9
## 9 2011-09-01 00:00:00 4967. 886. 446.
## 10 2011-10-01 00:00:00 1918. 423. 113.
## # … with 118 more rows, and 8 more variables: `Sulawesi Selatan` <dbl>,
## # `Sulawesi Tenggara` <dbl>, `Sulawesi Barat` <dbl>, Gorontalo <dbl>,
## # `Maluku Utara` <dbl>, Maluku <dbl>, Papua <dbl>, `Papua Barat` <dbl>library(readxl)
OutflowSulampuaPerbulan <- read_excel(path = "/Users/aisharadianto/Documents/College 2/(C) Linear Algebra/OutflowSulampuaPerbulan.xlsx")
OutflowSulampuaPerbulan## # A tibble: 128 × 12
## Keterangan Sulampua `Sulawesi Utara` `Sulawesi Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 966. 244. 83.5
## 2 2011-02-01 00:00:00 957. 260. 139.
## 3 2011-03-01 00:00:00 1982. 352. 189.
## 4 2011-04-01 00:00:00 2605. 460. 266.
## 5 2011-05-01 00:00:00 2559. 474. 317.
## 6 2011-06-01 00:00:00 2557. 459. 311.
## 7 2011-07-01 00:00:00 3087. 622. 351.
## 8 2011-08-01 00:00:00 6228. 985. 656.
## 9 2011-09-01 00:00:00 1234. 212. 105.
## 10 2011-10-01 00:00:00 2947. 545. 356.
## # … with 118 more rows, and 8 more variables: `Sulawesi Selatan` <dbl>,
## # `Sulawesi Tenggara` <dbl>, `Sulawesi Barat` <dbl>, Gorontalo <dbl>,
## # `Maluku Utara` <dbl>, Maluku <dbl>, Papua <dbl>, `Papua Barat` <dbl>6. Visualisasi Prediksi Data Inflow Uang Kartal Sulampua Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowSulampuaPerbulan$Keterangan,InflowSulampuaPerbulan$Sulampua,type = "l", col= "blue")
7. Visualisasi Prediksi Data Outflow Uang Kartal Sulampua Setiap Bulan Selama 10 Tahun Terakhir
plot(OutflowSulampuaPerbulan$Keterangan,OutflowSulampuaPerbulan$Sulampua,type = "l", col= "red")
8. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sulampua Setiap Bulan Selama 10 Tahun Terakhir
plot(InflowSulampuaPerbulan$Sulampua, type = "l", col = "blue")
lines(OutflowSulampuaPerbulan$Sulampua,col="red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
9. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Sulampua Pertahun Selama 10 Tahun Terakhir Berdasarkan Daerah
a.) Sulawesi Utara
plot(Inflow$`Sulawesi Utara`, type = "l", col = "blue")
plot(Outflow$`Sulawesi Utara`, type = "l", col = "red")
plot(Inflow$`Sulawesi Utara`, type = "l", col = "blue")
lines(Outflow$`Sulawesi Utara`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
b.) Sulawesi Tengah
plot(Inflow$`Sulawesi Tengah`, type = "l", col = "blue")
plot(Outflow$`Sulawesi Tengah`, type = "l", col = "red")
plot(Inflow$`Sulawesi Tengah`, type = "l", col = "blue")
lines(Outflow$`Sulawesi Tengah`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
c.) Sulawesi Selatan
plot(Inflow$`Sulawesi Selatan`, type = "l", col = "blue")
plot(Outflow$`Sulawesi Selatan`, type = "l", col = "red")
plot(Inflow$`Sulawesi Selatan`, type = "l", col = "blue")
lines(Outflow$`Sulawesi Selatan`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
d.) Sulawesi Tenggara
plot(Inflow$`Sulawesi Tenggara`, type = "l", col = "blue")
plot(Outflow$`Sulawesi Tenggara`, type = "l", col = "red")
plot(Inflow$`Sulawesi Tenggara`, type = "l", col = "blue")
lines(Outflow$`Sulawesi Tenggara`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
e.) Sulawesi Barat
plot(Inflow$`Sulawesi Barat`, type = "l", col = "blue")
plot(Outflow$`Sulawesi Barat`, type = "l", col = "red")
plot(Inflow$`Sulawesi Barat`, type = "l", col = "blue")
lines(Outflow$`Sulawesi Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
f.) Gorontalo
plot(Inflow$Gorontalo, type = "l", col = "blue")
plot(Outflow$Gorontalo, type = "l", col = "red")
plot(Inflow$Gorontalo, type = "l", col = "blue")
lines(Outflow$Gorontalo, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
g.) Maluku Utara
plot(Inflow$`Maluku Utara`, type = "l", col = "blue")
plot(Outflow$`Maluku Utara`, type = "l", col = "red")
plot(Inflow$`Maluku Utara`, type = "l", col = "blue")
lines(Outflow$`Maluku Utara`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
h.) Maluku
plot(Inflow$Maluku, type = "l", col = "blue")
plot(Outflow$Maluku, type = "l", col = "red")
plot(Inflow$Maluku, type = "l", col = "blue")
lines(Outflow$Maluku, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
i.) Papua
plot(Inflow$Papua, type = "l", col = "blue")
plot(Outflow$Papua, type = "l", col = "red")
plot(Inflow$Papua, type = "l", col = "blue")
lines(Outflow$Papua, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))
j.) Papua Barat
plot(Inflow$`Papua Barat`, type = "l", col = "blue")
plot(Outflow$`Papua Barat`, type = "l", col = "red")
plot(Inflow$`Papua Barat`, type = "l", col = "blue")
lines(Outflow$`Papua Barat`, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))