Universitas Islam Negeri Maulana Malik Ibrahim Malang

Linier Algebra (c) TI21

Data Outflow Uang kartal Pulau Jawa

Data uang kartal Pulau Jawa mulai tahun 2011-2021

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
dataoutflow <- read_excel(path = "datajawaoutflow.xlsx")
dataoutflow
## # A tibble: 11 x 7
##    tahun    Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur` Banten
##    <dbl>   <dbl>        <dbl>         <dbl>      <dbl>        <dbl>  <dbl>
##  1  2011  83511.       20782.        19975.      7538.       35217.     0 
##  2  2012 111363.       28895.        28493.      9486.       44489.     0 
##  3  2013  98969.       23067.        29529.      9708.       36665.     0 
##  4  2014 147069.       40857.        39110.     13171.       53931.     0 
##  5  2015 171568.       47063.        46840.     14080.       63585.     0 
##  6  2016 190568.       49405.        53659.     13013.       74491.     0 
##  7  2017 228905.       53825.        62761.     16810.       93396.  2113.
##  8  2018 253125.       61358.        69368.     20357.       97995.  4047.
##  9  2019 271957.       61692.        72363.     21353.      105514. 11035.
## 10  2020 251363.       57235.        72342.     16619.       93374. 11793.
## 11  2021 143340.       34763.        44455.      9652.       46029.  8441.

Data Uang Kartal Outflow Provinsi Jawa Barat

dataoutflow$`Jawa Barat`
##  [1] 20781.82 28894.90 23066.65 40856.50 47062.67 49404.83 53824.67 61357.85
##  [9] 61692.32 57234.96 34762.55
plot(dataoutflow$`Jawa Barat`, type = "l", col = "red")

Data Uang Kartal Outflow Provinsi Jawa Timur

dataoutflow$`Jawa Timur`
##  [1]  35216.68  44488.79  36665.01  53931.30  63584.72  74490.79  93395.86
##  [8]  97995.07 105514.10  93374.24  46029.49
plot(dataoutflow$`Jawa Timur`, type = "l", col = "blue")

Data Uang Kartal Outflow Provinsi Jawa Tengah

dataoutflow$`Jawa Tengah`
##  [1] 19975.06 28492.91 29529.42 39110.20 46840.46 53659.34 62760.69 69368.14
##  [9] 72363.07 72341.63 44455.37
plot(dataoutflow$`Jawa Tengah`, type = "l", col = "purple")

Data Uang Kartal Outflow Provinsi Yogyakarta

dataoutflow$Yogyakarta
##  [1]  7537.845  9485.987  9708.078 13171.105 14079.682 13012.847 16810.001
##  [8] 20357.156 21353.012 16619.416  9652.015
plot(dataoutflow$Yogyakarta, type = "l", col = "green")

Data Uang Kartal Provinsi Banten

dataoutflow$Banten
##  [1]     0.000     0.000     0.000     0.000     0.000     0.000  2113.438
##  [8]  4047.192 11034.845 11792.876  8440.580
plot(dataoutflow$Banten, type = "l", col = "cyan")

Referensi

https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx

https://rpubs.com/suhartono-uinmaliki/861286