penggambaran dan perkiraan Data Inflow-Outflow Uang kartal Kalimantan Timur dan Kalimantan Selatan
Hafidz nurrois
2/26/2022
Dosen Pengampu : Prof.Dr.Suhartono,M.Kom
Lembaga : UIN Maliki Malang
Jurusan : Teknik Informatika
Fakultas : Sains Dan Teknologi
Table Inflow dan Outflow Kalimantan Pertahun
library(readxl)## Warning: package 'readxl' was built under R version 4.1.2datainflowKalimantan <- read_excel(path = "InflowThKalimantan.xlsx")
datainflowKalimantan## # A tibble: 11 x 7
## Tahun Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Selatan`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 13272. 2831. 779. 5369.
## 2 2012 17575. 3386. 1135. 7311.
## 3 2013 37698. 4029. 19328. 4226.
## 4 2014 26379. 5943. 1887. 9614.
## 5 2015 29427. 6675. 3547. 9558.
## 6 2016 32847. 7440. 3694. 10809.
## 7 2017 35119. 7775. 3655. 12415.
## 8 2018 41157. 10249. 4083. 13604.
## 9 2019 46158. 11848. 4385. 14462.
## 10 2020 37200. 9294. 4178. 11753.
## 11 2021 31372. 7598. 3534. 9655.
## # ... with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>library(readxl)
dataoutflowKalimantan <- read_excel(path = "outflowThKalimantan.xlsx")
dataoutflowKalimantan## # A tibble: 11 x 7
## Tahun Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Selatan`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 29535. 5221. 6850. 5126.
## 2 2012 33444. 5698. 7741. 5580.
## 3 2013 44929. 6011. 15421. 5046.
## 4 2014 38772. 6764. 8346. 6265.
## 5 2015 41945. 8486. 10190. 6755.
## 6 2016 42179. 9402. 10131. 7424.
## 7 2017 50404. 11132. 11695. 9544.
## 8 2018 53989. 12278. 13040. 8476.
## 9 2019 57579. 13768. 12891. 9228.
## 10 2020 52060. 13501. 12518. 8222.
## 11 2021 30291. 6958. 7071. 5192.
## # ... with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>Prediksi Data Inflow Uang Kartal Kalimantan Selatan Pertahun
datainflowKalimantan$`Kalimantan Selatan`## [1] 5369.130 7310.966 4225.795 9613.856 9558.440 10809.472 12415.392
## [8] 13603.702 14461.706 11752.885 9655.145plot(datainflowKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
Prediksi Data Outflow Uang Kartal Kalimantan Selatan Pertahun
dataoutflowKalimantan$`Kalimantan Selatan`## [1] 5125.677 5579.845 5046.116 6264.856 6754.617 7424.322 9544.260 8476.299
## [9] 9228.198 8221.786 5192.073plot(dataoutflowKalimantan$`Kalimantan Selatan`, type = "l", col = "blue")
Prediksi Data Inflow Uang Kartal Kalimantan Timur Pertahun
datainflowKalimantan$`Kalimantan Timur`## [1] 4293.255 5743.215 10114.808 8935.612 9646.068 10903.212 10932.677
## [8] 12304.858 13991.376 10612.320 8914.070plot(datainflowKalimantan$`Kalimantan Timur`, type = "l", col = "orange")
Prediksi Data Outflow Uang Kartal Kalimantan Timur Pertahun
dataoutflowKalimantan$`Kalimantan Timur`## [1] 12337.495 14425.714 18450.956 17397.593 16514.430 15221.172 16524.616
## [8] 17724.274 18596.376 14993.252 9110.219plot(dataoutflowKalimantan$`Kalimantan Timur`, type = "l", col = "green")
Grafik Perbandingan Data Inflow Uang Kartal Kaltim dan Kalsel Pertahun
plot(datainflowKalimantan$Tahun,datainflowKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
lines(datainflowKalimantan$Tahun,datainflowKalimantan$`Kalimantan Timur`, type = "l", col = "orange")
legend("top",c("Inflow Kaltim","Inflow Kalsel"),fill=c("orange","red"))
Grafik Perbandingan Data Outflow Uang Kartal Kaltim dan Kalsel Pertahun
plot(dataoutflowKalimantan$Tahun,dataoutflowKalimantan$`Kalimantan Selatan`, type = "l", col = "blue")
lines(dataoutflowKalimantan$Tahun,dataoutflowKalimantan$`Kalimantan Timur`, type = "l", col = "green")
legend("top",c("Outflow Kaltim","Outflow Kalsel"),fill=c("green","blue"))
Perbandingan Keseluruhan Inflow dan Outflow Kaltim dan Kalsel Pertahun
plot(datainflowKalimantan$Tahun,datainflowKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
lines(datainflowKalimantan$Tahun,datainflowKalimantan$`Kalimantan Timur`, type = "l", col = "orange")
lines(dataoutflowKalimantan$Tahun,dataoutflowKalimantan$`Kalimantan Selatan`, type = "l", col = "blue")
lines(dataoutflowKalimantan$Tahun,dataoutflowKalimantan$`Kalimantan Timur`, type = "l", col = "green")
legend("top",c("Inflow Kaltim","Inflow Kalsel","Outflow Kaltim","Outflow Kalsel"),fill=c("orange","red","green","blue"))
Table Inflow dan Outflow Kalimantan Perbulan
library(readxl)
datainflowBlnKalimantan <- read_excel(path = "inflowBlnKalimantan.xlsx")
datainflowBlnKalimantan## # A tibble: 128 x 7
## Bulan Kalimantan `Kalimantan Barat` `Kalimantan Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 982. 54.5 105.
## 2 2011-02-01 00:00:00 486. 40.8 55.8
## 3 2011-03-01 00:00:00 1150. 259. 64.3
## 4 2011-04-01 00:00:00 612. 91.0 45.2
## 5 2011-05-01 00:00:00 887. 217. 46.0
## 6 2011-06-01 00:00:00 850. 156. 74.6
## 7 2011-07-01 00:00:00 853. 189. 34.2
## 8 2011-08-01 00:00:00 648. 121. 24.0
## 9 2011-09-01 00:00:00 3685. 891. 213.
## 10 2011-10-01 00:00:00 1076. 296. 29.7
## # ... with 118 more rows, and 3 more variables: `Kalimantan Selatan` <dbl>,
## # `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>library(readxl)
dataoutflowBlnKalimantan <- read_excel(path = "outflowBlnKalimantan.xlsx")
dataoutflowBlnKalimantan## # A tibble: 128 x 7
## Bulan Kalimantan `Kalimantan Barat` `Kalimantan Tengah`
## <dttm> <dbl> <dbl> <dbl>
## 1 2011-01-01 00:00:00 582. 278. 167.
## 2 2011-02-01 00:00:00 859. 141. 318.
## 3 2011-03-01 00:00:00 1570. 155. 375.
## 4 2011-04-01 00:00:00 2337. 535. 591.
## 5 2011-05-01 00:00:00 2019. 272. 559.
## 6 2011-06-01 00:00:00 2439. 446. 657.
## 7 2011-07-01 00:00:00 2544. 436. 681.
## 8 2011-08-01 00:00:00 6258. 1040. 1030.
## 9 2011-09-01 00:00:00 671. 146. 175.
## 10 2011-10-01 00:00:00 2175. 217. 598.
## # ... with 118 more rows, and 3 more variables: `Kalimantan Selatan` <dbl>,
## # `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>Prediksi Data Inflow Uang Kartal Kalimantan Selatan Perbulah
datainflowBlnKalimantan$`Kalimantan Selatan`## [1] 435.9231 233.8043 499.1192 248.6236 364.1507 377.7424 420.8614
## [8] 268.3844 1200.0811 453.6909 557.9203 308.8282 1017.1029 608.9991
## [15] 502.1998 501.0070 532.5363 436.0847 746.8760 815.5548 819.9235
## [22] 443.2733 584.2660 303.1428 385.6956 152.3648 125.1875 206.8840
## [29] 241.2505 135.5587 101.2874 644.3126 587.7729 697.8160 591.7549
## [36] 355.9105 1193.4702 861.6307 610.4029 649.3939 577.0691 654.3690
## [43] 347.4679 1923.4446 848.8139 832.9910 690.0823 424.7200 1308.3016
## [50] 767.8238 573.1010 654.6699 655.6017 717.3519 1168.0129 1072.7254
## [57] 637.9209 755.9631 746.8524 500.1152 1593.7013 811.7151 648.9879
## [64] 600.8379 675.1654 460.3656 1721.9711 839.9792 925.0320 841.6619
## [71] 762.6505 927.4038 1633.8799 784.1231 924.8374 796.4793 1040.5450
## [78] 527.4119 2185.9746 1053.9624 1011.0828 948.0112 865.3617 643.7222
## [85] 1833.8394 905.8473 816.1826 971.0926 918.5270 1682.4910 1645.6342
## [92] 1099.2699 1133.8923 1016.7645 909.7523 670.4089 2024.0948 940.1100
## [99] 847.3525 1042.6128 854.3608 2298.3272 1287.2827 1210.2265 1140.6141
## [106] 1280.9129 1049.5325 486.2793 2201.9387 1037.8126 748.4777 650.9558
## [113] 518.9551 1606.9733 869.4647 784.0645 1152.7185 626.4177 1254.8229
## [120] 300.2835 1899.2428 1204.1107 1051.9514 741.4424 1492.9044 1309.8859
## [127] 993.5095 962.0976plot(datainflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
Prediksi Data Outflow Uang Kartal Kalimantan Selatan Perbulan
dataoutflowBlnKalimantan$`Kalimantan Selatan`## [1] 30.92676 217.58423 331.32386 349.56174 338.01996 442.51594
## [7] 448.01446 1334.56541 92.18066 396.73570 385.87217 758.37575
## [13] 78.01497 251.83107 418.87169 320.11813 425.22442 617.59797
## [19] 445.67986 1000.58272 261.36103 475.96294 392.40476 892.19571
## [25] 53.28767 173.17133 229.16928 159.83154 564.48615 283.19700
## [31] 651.41614 444.49077 318.61750 503.10060 633.13997 1032.20846
## [37] 205.72818 297.56403 516.77520 462.29009 382.51735 459.45448
## [43] 1415.42457 330.56652 349.73945 507.07185 479.52777 858.19636
## [49] 145.86699 280.42443 375.57112 524.22672 390.50958 765.86225
## [55] 1404.93564 267.48039 458.42324 540.49000 665.82226 935.00464
## [61] 119.98024 321.23994 292.72978 483.17704 707.14356 1745.73473
## [67] 600.40955 310.76644 397.14109 478.93165 692.11655 1274.95161
## [73] 220.74825 470.94490 677.64512 803.43306 894.74852 2335.48989
## [79] 274.67225 722.23003 431.55757 688.71465 823.43364 1200.64251
## [85] 119.70985 411.30635 858.73024 569.53375 1311.73154 1745.23677
## [91] 343.85731 554.01268 415.87756 561.26903 631.11928 953.91478
## [97] 156.83052 402.14036 735.27418 1026.22248 2307.99246 152.81024
## [103] 825.93749 641.39639 462.88459 710.51746 804.34719 1001.84450
## [109] 224.29025 440.09690 646.45724 823.77876 1415.65499 193.26948
## [115] 682.30480 352.21086 694.37750 939.31635 760.47623 1049.55259
## [121] 190.78066 225.12346 535.54389 1199.73199 1406.42748 434.94900
## [127] 730.85906 468.65727plot(dataoutflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "yellow")
Prediksi Data Inflow Uang Kartal Kalimantan Timur Perbulan
datainflowBlnKalimantan$`Kalimantan Timur`## [1] 386.8959 156.0572 327.5300 227.3215 259.4598 241.0772 209.0709
## [8] 234.6546 1380.6184 296.2488 379.3212 194.9991 813.4070 500.6319
## [15] 350.5007 374.4735 419.0225 314.0501 404.2772 1084.6745 579.8222
## [22] 248.0938 371.1188 283.1429 1481.9062 748.0774 702.4110 603.9930
## [29] 566.9668 577.5010 535.8822 3112.1327 519.8297 494.8781 470.7488
## [36] 300.4810 1324.2797 769.0908 609.2509 715.5751 480.4685 572.7389
## [43] 317.5474 1872.0443 611.8721 671.9655 576.6264 414.1527 1787.6819
## [50] 846.2909 774.7626 654.3524 571.1234 613.4639 1590.8039 758.9619
## [57] 618.2369 576.8371 466.6612 386.8918 1446.7594 957.0854 783.1885
## [64] 678.5723 876.6097 536.9560 2079.3739 886.1318 775.5502 609.4078
## [71] 665.2391 608.3375 1354.7299 891.1119 817.4353 726.6774 793.2949
## [78] 355.3978 2179.7522 921.8936 902.6810 770.3086 709.0181 510.3760
## [85] 1280.5636 789.4093 764.6919 881.9106 843.8006 2424.6150 1234.0321
## [92] 891.9402 833.8232 976.6633 743.6479 639.7601 1516.7540 936.3101
## [99] 861.4164 1115.6047 773.2035 2978.5227 1220.8372 1108.3736 975.5682
## [106] 1035.1930 861.6003 607.9922 1631.3523 909.6022 646.9720 716.2299
## [113] 807.6215 1658.0662 870.7932 786.0973 859.7558 578.4327 780.0292
## [120] 367.3676 1943.7774 958.3480 905.2772 852.9136 1746.3150 1007.1073
## [127] 786.9856 713.3462plot(datainflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "pink")
Prediksi Data Outflow Uang Kartal Kalimantan Timur Perbulan
dataoutflowBlnKalimantan$`Kalimantan Timur`## [1] 105.9584 183.1731 709.0119 861.9188 850.8895 893.8170 978.8524
## [8] 2853.7373 258.1347 962.8278 1111.9943 2567.1792 141.2637 447.3704
## [15] 871.3136 950.4211 1144.6693 1172.7716 1263.9854 2345.2061 420.0458
## [22] 1324.9692 1410.1386 2933.5597 458.9434 592.9759 1098.7873 975.5426
## [29] 1260.1516 1273.3499 3482.4698 1668.2297 964.4201 1417.6193 1661.6678
## [36] 3596.7990 476.5567 490.5591 1245.1557 1120.4022 1199.6649 1162.3492
## [43] 3927.0262 224.3035 1069.6359 1667.7380 1287.4784 3526.7232 295.5754
## [50] 623.2929 973.2470 1348.7651 1142.1460 1678.3206 3409.1998 408.7450
## [57] 1046.2819 1227.4938 1492.9202 2868.4423 264.0031 749.6513 735.6124
## [64] 1139.1516 1410.0316 3186.7023 1144.4938 871.6023 1270.6361 979.0426
## [71] 1258.9000 2211.3448 689.1725 862.2065 1291.8852 1238.8607 1352.2792
## [78] 3801.5073 465.3724 1418.9076 874.2134 1055.7755 1577.8654 1896.5708
## [85] 334.8694 925.5199 1365.6305 1244.3834 2516.1295 3018.9876 909.1610
## [92] 1369.8084 988.0312 1232.0343 1567.7647 2251.9540 575.9478 978.4527
## [99] 1253.5146 1618.2094 4740.3074 328.8598 1280.6878 1439.7870 1067.5958
## [106] 1207.9468 1591.9049 2513.1615 575.0570 770.9608 1165.8999 1376.6102
## [113] 2521.2020 396.3374 1099.4440 873.2943 818.7630 1534.5310 1295.0360
## [120] 2566.1166 117.3321 751.8656 870.9665 1952.6925 2309.5234 1037.9313
## [127] 1119.2996 950.6085plot(dataoutflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "yellow green")
Grafik Perbandingan Data Inflow Uang Kartal Kaltim dan Kalsel Perbulan
plot(datainflowBlnKalimantan$Bulan,datainflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
lines(datainflowBlnKalimantan$Bulan,datainflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "pink")
legend("top",c("Inflow Kaltim","Inflow Kalsel"),fill=c("pink","red"))
Grafik Perbandingan Data Outflow Uang Kartal Kaltim dan Kalsel Pertahun
plot(dataoutflowBlnKalimantan$Bulan,dataoutflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "yellow")
lines(dataoutflowBlnKalimantan$Bulan,dataoutflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "yellow green")
legend("top",c("outflow Kaltim","outflow Kalsel"),fill=c("yellow green","yellow"))
Perbandingan Keseluruhan Inflow dan Outflow Kaltim dan Kalsel Perbulan
plot(datainflowBlnKalimantan$Bulan,datainflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "red")
lines(datainflowBlnKalimantan$Bulan,datainflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "pink")
lines(dataoutflowBlnKalimantan$Bulan,dataoutflowBlnKalimantan$`Kalimantan Selatan`, type = "l", col = "yellow")
lines(dataoutflowBlnKalimantan$Bulan,dataoutflowBlnKalimantan$`Kalimantan Timur`, type = "l", col = "yellow green")
legend("top",c("Inflow Kaltim","Inflow Kalsel","Outflow Kaltim","Outflow Kalsel"),fill=c("pink","red","yellow green","yellow"))