Oleh : Lia Wahyuliningtyas Dosen Pengampu : Prof Dr Suhartono M.Kom

library(readxl)
datainflow <- read_excel(path = "Inflow.xlsx")
dataoutflow <- read_excel(path = "Outflow.xlsx")
datainflow <- datainflow[c(1:5),c(1:12)]
datainflow
## # A tibble: 5 x 12
##   `Pulau Jawa` `2011` `2012` `2013` `2014` `2015` `2016` `2017`  `2018`  `2019`
##   <chr>         <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>
## 1 Jawa Barat   43775. 60629. 35190. 78660. 81303. 88036. 83220.  87243.  94846.
## 2 Jawa Tengah  35137. 43298. 42182. 60476. 65198. 72782. 77031.  87829.  90751.
## 3 Yogyakarta    6490.  9173.  8939. 13890. 14831. 17350. 17483.  20574.  20899.
## 4 Jawa Timur   38515. 47383. 48687. 64276. 68808. 83439. 98380. 106433. 113651.
## 5 Banten           0      0      0      0      0      0   1495.   4832.   4477.
## # ... with 2 more variables: `2020` <dbl>, `2021` <dbl>
dataoutflow <- dataoutflow[c(1:5),c(1:12)]
dataoutflow
## # A tibble: 5 x 12
##   `Pulau Jawa` `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018`  `2019`
##   <chr>         <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>   <dbl>
## 1 Jawa Barat   20782. 28895. 23067. 40857. 47063. 49405. 53825. 61358.  61692.
## 2 Jawa Tengah  19975. 28493. 29529. 39110. 46840. 53659. 62761. 69368.  72363.
## 3 Yogyakarta    7538.  9486.  9708. 13171. 14080. 13013. 16810. 20357.  21353.
## 4 Jawa Timur   35217. 44489. 36665. 53931. 63585. 74491. 93396. 97995. 105514.
## 5 Banten           0      0      0      0      0      0   2113.  4047.  11035.
## # ... with 2 more variables: `2020` <dbl>, `2021` <dbl>
DataInJawaTimur <- c(38515, 47382, 48686, 64276, 68808, 83438, 98380, 106432, 113650, 86847, 58985)
plot(DataInJawaTimur)

plot(DataInJawaTimur, type="o", col="blue")
title(main="Jumlah Peredaan Uang", col.main="red", font.main=4)

DataOutJawaTimur <- c(35216, 44488, 36665, 53931, 63584, 74490, 93395, 97995, 105514, 93374, 46029)
plot(DataOutJawaTimur)

plot(DataInJawaTimur, type="o", col="red")
title(main="Jumlah Peredaan Uang", col.main="blue", font.main=4)

PulauJawaTimur <- c(38515, 47382, 48686, 64276, 68808, 83438, 98380, 106432, 113650, 86847, 58985)
barplot(PulauJawaTimur)

barplot(PulauJawaTimur, main="PulauJawaTimur", xlab="Tahun",names.arg=c("2011","2012","2013","2014","2015","2016","2017","2018","2019","2020","2022" ))

Source Url: https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx Source Url: https://rpubs.com/suhartono-uinmaliki/861286