Visualisasi Data Inflow dan Outflow Uang Kartal di Sulawesi Utara
210605110104_Moch Hasbi Ashidqy
2/21/2022
Pengertian Inflow Outflow Uang Kartal
Banyaknya uang yang beredar di masyarakat akan berpengaruh pada kondisi perekonomian suatu negara. Bank Indonesia memiliki tujuan tunggal untuk mencapai dan menjaga kestabilan nilai rupiah. Oleh karena itu, BI sebagai bank sentral menyusun perencanaan untuk memenuhi kebutuhan uang rupiah. Perencanaan tersebut dapat dilakukan dengan melakukan peramalan untuk inflow dan outflow uang kartal. Inflow merupakan uang yang masuk ke BI melalui kegiatan penyetoran, sedangkan outflow merupakan uang yang keluar dari BI melalui kegiatan penarikan.
library(readxl)
data_set_inflow <- read_excel(path = "inflowUp.xlsx")
data_set_inflow## # A tibble: 11 x 3
## Keterangan SulawesiUtara SulawesiTengah
## <dbl> <dbl> <dbl>
## 1 2011 5671. 1563.
## 2 2012 6635. 1885.
## 3 2013 21646. 1520.
## 4 2014 7374. 3000.
## 5 2015 6286. 2593.
## 6 2016 7266. 2665.
## 7 2017 7044. 2806.
## 8 2018 7781. 3701.
## 9 2019 7809. 4042.
## 10 2020 6324. 3052.
## 11 2021 4671. 2453.data_set_outflow <- read_excel(path = "outflow.xlsx")
data_set_outflow## # A tibble: 11 x 3
## Keterangan SulawesiUtara SulawesiTengah
## <dbl> <dbl> <dbl>
## 1 2011 6606. 4017.
## 2 2012 6375. 4458.
## 3 2013 22740. 4544.
## 4 2014 7207. 5696.
## 5 2015 7202. 5310.
## 6 2016 7707. 4962.
## 7 2017 8421. 5226.
## 8 2018 7605. 5578.
## 9 2019 7367. 5531.
## 10 2020 7437. 4674.
## 11 2021 3050. 2763.data_set_inflow$`SulawesiUtara`## [1] 5671.000 6634.641 21646.159 7374.499 6286.289 7265.597 7044.279
## [8] 7781.151 7809.155 6324.233 4671.264data_set_outflow$`SulawesiUtara`## [1] 6606.350 6375.046 22739.624 7207.075 7202.219 7707.403 8420.926
## [8] 7604.808 7367.439 7436.930 3050.369plot(data_set_inflow$`SulawesiUtara`, type = "l", col = "orange")
plot(data_set_outflow$`SulawesiUtara`, type = "l", col = "green")
plot(data_set_inflow$`SulawesiUtara`, type = "l", col = "orange")
lines(data_set_outflow$`SulawesiUtara`, type = "l", col = "green")
legend("top",c("Inflow","Outflow"),fill=c("orange","green"))
inflowmonth <- read_excel("inflowmonth.xlsx")
inflowmonth## # A tibble: 128 x 3
## Keterangan SulawesiUtara SulawesiTengah
## <dttm> <dbl> <dbl>
## 1 2011-01-01 00:00:00 861. 167.
## 2 2011-02-01 00:00:00 353. 46.1
## 3 2011-03-01 00:00:00 415. 133.
## 4 2011-04-01 00:00:00 342. 91.5
## 5 2011-05-01 00:00:00 379. 106.
## 6 2011-06-01 00:00:00 413. 77.0
## 7 2011-07-01 00:00:00 480. 113.
## 8 2011-08-01 00:00:00 415. 76.9
## 9 2011-09-01 00:00:00 886. 446.
## 10 2011-10-01 00:00:00 423. 113.
## # ... with 118 more rowsoutflowmonth <- read_excel("outflowmonth.xlsx")
outflowmonth## # A tibble: 128 x 3
## Keterangan SulawesiUtara SulawesiTengah
## <dttm> <dbl> <dbl>
## 1 2011-01-01 00:00:00 244. 83.5
## 2 2011-02-01 00:00:00 260. 139.
## 3 2011-03-01 00:00:00 352. 189.
## 4 2011-04-01 00:00:00 460. 266.
## 5 2011-05-01 00:00:00 474. 317.
## 6 2011-06-01 00:00:00 459. 311.
## 7 2011-07-01 00:00:00 622. 351.
## 8 2011-08-01 00:00:00 985. 656.
## 9 2011-09-01 00:00:00 212. 105.
## 10 2011-10-01 00:00:00 545. 356.
## # ... with 118 more rowsplot(inflowmonth$`SulawesiUtara`, type = "l", col = "red")
lines(outflowmonth$`SulawesiUtara`,col="green")
legend("top",c("Inflow","Outflow"),fill=c("red","green"))
SulawesIUtaratimeseries <- inflowmonth$`SulawesiUtara`
plot.ts(SulawesIUtaratimeseries , type = "l", col = "red")
logSulawesiUtara <- log(inflowmonth$`SulawesiUtara`)
plot.ts(logSulawesiUtara)
library(TTR)
SulawesiutaraSMA3 <- SMA(inflowmonth$`SulawesiUtara`,n=3)
plot.ts(SulawesiutaraSMA3 )
SulawesiUtaraSMA3 <- SMA(inflowmonth$`SulawesiUtara`,n=8)
plot.ts(SulawesiUtaraSMA3 )
SulawesiUtarainflowtimeseries <- ts(inflowmonth$`SulawesiUtara`, frequency=12, start=c(2011,1))
SulawesiUtarainflowtimeseries## Jan Feb Mar Apr May Jun Jul
## 2011 860.7385 352.9041 414.9908 342.3528 379.4670 413.1758 480.2016
## 2012 1176.8558 523.6859 442.3320 376.7808 472.9361 436.3540 579.0293
## 2013 3866.5529 2045.1677 1591.0424 1538.8475 1729.1925 1664.8949 1412.6565
## 2014 1433.2824 607.4864 417.2395 601.4891 450.9658 559.0841 456.7986
## 2015 1564.4203 386.3612 372.0492 338.9239 391.7780 358.8130 1030.3345
## 2016 1649.7976 485.0502 353.9875 262.3391 473.8163 293.9829 1537.4737
## 2017 1651.3760 373.8373 375.4976 372.8282 351.9809 238.3377 1430.8788
## 2018 1926.1388 585.1342 399.4248 463.7705 539.3969 1045.9901 718.8949
## 2019 1813.8063 486.5071 417.5471 592.9503 570.9121 1551.6171 495.5567
## 2020 1772.6813 466.6830 289.3445 189.6372 298.2579 385.1628 247.9884
## 2021 1549.7558 488.7697 489.8684 310.2974 806.2857 510.1142 227.0602
## Aug Sep Oct Nov Dec
## 2011 414.8234 885.8144 422.9711 410.7011 292.8600
## 2012 837.1944 494.6133 402.0490 522.3170 370.4932
## 2013 5765.6093 437.5279 548.3990 530.6355 515.6329
## 2014 1302.7009 474.9873 420.9767 297.4887 351.9993
## 2015 444.2401 318.2717 358.9832 318.9779 403.1356
## 2016 434.2419 484.8547 394.0971 412.3486 483.6072
## 2017 557.4328 518.0903 434.3193 432.6734 307.0269
## 2018 419.3425 385.3481 450.3463 421.3295 426.0345
## 2019 385.5376 344.5586 536.7020 351.7624 261.6977
## 2020 342.4577 391.1442 826.0752 861.1173 253.6835
## 2021 289.1124SulawesiUtaraoutflowtimeseries <- ts(outflowmonth$`SulawesiUtara`, frequency=12, start=c(2011,1))
SulawesiUtaraoutflowtimeseries## Jan Feb Mar Apr May Jun
## 2011 244.217165 260.045859 351.805036 460.367592 474.222931 459.370674
## 2012 196.144420 282.586694 434.090852 527.717470 497.397112 797.291166
## 2013 585.265646 1537.569958 2605.811168 1412.572360 2964.619679 2431.821671
## 2014 16.409412 46.219356 247.753169 680.609195 553.004630 606.698769
## 2015 69.519317 271.288630 349.798232 630.368545 377.198542 395.827936
## 2016 37.312641 316.976614 340.576821 391.748992 608.551484 1463.838638
## 2017 43.052058 295.869476 424.080221 526.101370 560.182861 1859.738396
## 2018 118.041675 335.185255 731.777026 326.048400 753.635600 1448.171635
## 2019 45.741979 292.563444 496.109307 877.391274 1722.133985 137.636006
## 2020 65.143403 219.552409 333.994797 604.235532 691.227480 126.770693
## 2021 8.451208 130.471043 272.150058 584.501716 1168.091066 380.867926
## Jul Aug Sep Oct Nov Dec
## 2011 621.885006 985.119155 211.519479 545.324194 588.413447 1404.059346
## 2012 614.019626 975.948548 308.979313 365.883199 375.237139 999.750873
## 2013 5169.302578 3692.219093 329.271404 348.433562 411.462702 1251.274472
## 2014 1483.336097 326.598849 597.373574 514.414503 550.532571 1584.124973
## 2015 1474.582262 390.203861 500.558534 439.988713 709.381934 1593.502796
## 2016 692.891305 553.832599 543.825390 621.979022 609.849521 1526.020467
## 2017 238.870994 615.272440 513.858351 473.648557 949.443083 1920.808361
## 2018 233.748952 313.927111 243.826454 450.846092 565.334647 2084.264783
## 2019 597.609098 338.222218 257.648157 298.099294 559.586661 1744.697624
## 2020 425.908314 503.433905 403.172820 1254.260157 1098.606123 1710.624413
## 2021 262.606942 243.229178plot.ts(SulawesiUtarainflowtimeseries)
plot.ts(SulawesiUtaraoutflowtimeseries)
SulawesiUtaraintimeseriescomponents <- decompose(SulawesiUtarainflowtimeseries)
SulawesiUtaraintimeseriescomponents$seasonal## Jan Feb Mar Apr May Jun
## 2011 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2012 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2013 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2014 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2015 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2016 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2017 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2018 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2019 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2020 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## 2021 1130.30823 -63.71168 -201.87809 -192.66504 -136.43097 1.10959
## Jul Aug Sep Oct Nov Dec
## 2011 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2012 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2013 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2014 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2015 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2016 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2017 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2018 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2019 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2020 136.49266 384.43243 -233.28270 -227.49029 -252.69188 -344.19227
## 2021 136.49266 384.43243SulawesiUtaratouttimeseriescomponents <- decompose(SulawesiUtaraoutflowtimeseries)
SulawesiUtaratouttimeseriescomponents$seasonal## Jan Feb Mar Apr May Jun Jul
## 2011 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2012 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2013 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2014 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2015 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2016 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2017 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2018 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2019 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2020 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## 2021 -628.0147 -369.1064 -88.8158 -91.5628 208.4773 264.6787 410.6321
## Aug Sep Oct Nov Dec
## 2011 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2012 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2013 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2014 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2015 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2016 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2017 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2018 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2019 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2020 126.4167 -351.1859 -211.0869 -103.9982 833.5658
## 2021 126.4167plot(SulawesiUtaraintimeseriescomponents$seasonal,type = "l", col = "orange")
lines(SulawesiUtaratouttimeseriescomponents$seasonal,col="green")
legend("top",c("Inflow","Outflow"),fill=c("Red","green"))
plot(SulawesiUtaraintimeseriescomponents$trend,type = "l", col = "orange")
lines(SulawesiUtaratouttimeseriescomponents$trend,col="green")
legend("top",c("Inflow","Outflow"),fill=c("Red","green"))
plot(SulawesiUtaraintimeseriescomponents$random,type = "l", col = "orange")
lines(SulawesiUtaratouttimeseriescomponents$random,col="green")
legend("top",c("Inflow","Outflow"),fill=c("Red","green"))
plot(SulawesiUtaraintimeseriescomponents$figure,type = "l", col = "orange")
lines(SulawesiUtaratouttimeseriescomponents$figure,col="green")
legend("top",c("Inflow","Outflow"),fill=c("Red","green"))
library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.8
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 2.1.2 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()qplot(x=inflowmonth$`SulawesiUtara`,y="",geom="boxplot",col= I("blue"),fill= I("green"),ylab = "Bulan",xlab="Sulawesi Utara",main="Data Inflow Bulanan")
names(inflowmonth)[2]<-"SulawesiUtara"
qplot(data =inflowmonth,y=inflowmonth$Keterangan,x = inflowmonth$SulawesiUtara,filter=inflowmonth$Keterangan,border="red",geom="boxplot")## Warning: Ignoring unknown parameters: filter, border## Warning: Use of `inflowmonth$SulawesiUtara` is discouraged. Use `SulawesiUtara`
## instead.## Warning: Use of `inflowmonth$Keterangan` is discouraged. Use `Keterangan`
## instead.## Warning: Continuous x aesthetic -- did you forget aes(group=...)?
pie(data_set_inflow$SulawesiUtara,labels = as.character(data_set_inflow$Keterangan))
names(data_set_inflow)[2]<-"SulawesiUtara"
attach(data_set_inflow)
stripchart(Keterangan~SulawesiUtara,col="red")
data_set.a<- data.frame(data_set_inflow)
qqnorm(data_set.a$Keterangan)
qqline(data_set.a$Keterangan)
attach(inflowmonth)## The following objects are masked from data_set_inflow:
##
## Keterangan, SulawesiTengah, SulawesiUtarapairs(inflowmonth,panel = panel.smooth)
library(ggplot2)
ggplot(data_set_inflow, aes(x=Keterangan, y=SulawesiUtara)) +
geom_boxplot()## Warning: Continuous x aesthetic -- did you forget aes(group=...)?
library("forecast") # load the "forecast" R library## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zooSulawesiUtaraoutflowtimeseries <- forecast(SulawesiUtaraoutflowtimeseries, h=15)
SulawesiUtarainflowtimeseries## Jan Feb Mar Apr May Jun Jul
## 2011 860.7385 352.9041 414.9908 342.3528 379.4670 413.1758 480.2016
## 2012 1176.8558 523.6859 442.3320 376.7808 472.9361 436.3540 579.0293
## 2013 3866.5529 2045.1677 1591.0424 1538.8475 1729.1925 1664.8949 1412.6565
## 2014 1433.2824 607.4864 417.2395 601.4891 450.9658 559.0841 456.7986
## 2015 1564.4203 386.3612 372.0492 338.9239 391.7780 358.8130 1030.3345
## 2016 1649.7976 485.0502 353.9875 262.3391 473.8163 293.9829 1537.4737
## 2017 1651.3760 373.8373 375.4976 372.8282 351.9809 238.3377 1430.8788
## 2018 1926.1388 585.1342 399.4248 463.7705 539.3969 1045.9901 718.8949
## 2019 1813.8063 486.5071 417.5471 592.9503 570.9121 1551.6171 495.5567
## 2020 1772.6813 466.6830 289.3445 189.6372 298.2579 385.1628 247.9884
## 2021 1549.7558 488.7697 489.8684 310.2974 806.2857 510.1142 227.0602
## Aug Sep Oct Nov Dec
## 2011 414.8234 885.8144 422.9711 410.7011 292.8600
## 2012 837.1944 494.6133 402.0490 522.3170 370.4932
## 2013 5765.6093 437.5279 548.3990 530.6355 515.6329
## 2014 1302.7009 474.9873 420.9767 297.4887 351.9993
## 2015 444.2401 318.2717 358.9832 318.9779 403.1356
## 2016 434.2419 484.8547 394.0971 412.3486 483.6072
## 2017 557.4328 518.0903 434.3193 432.6734 307.0269
## 2018 419.3425 385.3481 450.3463 421.3295 426.0345
## 2019 385.5376 344.5586 536.7020 351.7624 261.6977
## 2020 342.4577 391.1442 826.0752 861.1173 253.6835
## 2021 289.1124acf(SulawesiUtarainflowtimeseries, lag.max=20)
REFERENSI
https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx