Universitas Islam Negeri Maulana Malik Ibrahim Malang

Linier Algebra (c) TI21

Data Inflow Uang kartal Pulau Jawa

Data uang kartal Pulau Jawa mulai tahun 2011-2020

library(readxl)
datapulaujawa <- read_excel(path = "D:/E-book kuliah semester 2/linier algebra/datainflowjawa.xlsx")
datapulaujawa
## # A tibble: 11 x 7
##    Tahun    Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur` Banten
##    <dbl>   <dbl>        <dbl>         <dbl>      <dbl>        <dbl>  <dbl>
##  1  2011 123917.       43775.        35137.      6490.       38515.     0 
##  2  2012 160482.       60629.        43298.      9173.       47383.     0 
##  3  2013 134998.       35190.        42182.      8939.       48687.     0 
##  4  2014 217303.       78660.        60476.     13890.       64276.     0 
##  5  2015 230141.       81303.        65198.     14831.       68808.     0 
##  6  2016 261607.       88036.        72782.     17350.       83439.     0 
##  7  2017 277609.       83220.        77031.     17483.       98380.  1495.
##  8  2018 306911.       87243.        87829.     20574.      106433.  4832.
##  9  2019 324624.       94846.        90751.     20899.      113651.  4477.
## 10  2020 259444.       76883.        84970.      7348.       86848.  3396.
## 11  2021 187816.       57295.        62024.      6714.       58986.  2798.

Data Uang Kartal Provinsi Jawa Barat

datapulaujawa$`Jawa Barat`
##  [1] 43774.95 60628.98 35189.87 78660.47 81302.76 88036.15 83220.31 87243.25
##  [9] 94845.66 76883.43 57294.63
datainjawabarat <- datapulaujawa$`Jawa Barat`
plot(datapulaujawa$`Jawa Barat`, type = "l", col = "red")

## Data Uang Kartal Provinsi Jawa Timur

datapulaujawa$`Jawa Timur`
##  [1]  38515.15  47382.53  48686.60  64276.29  68808.45  83438.71  98380.14
##  [8] 106432.61 113650.76  86847.80  58985.54
plot(datapulaujawa$`Jawa Timur`, type = "l", col = "blue")

## Data Uang Kartal Provinsi Jawa Tengah

datapulaujawa$`Jawa Tengah`
##  [1] 35136.81 43298.13 42182.45 60475.92 65198.11 72781.71 77030.61 87829.19
##  [9] 90751.39 84970.10 62023.81
plot(datapulaujawa$`Jawa Tengah`, type = "l", col = "purple")

## Data Uang Kartal Provinsi Yogyakarta

datapulaujawa$Yogyakarta
##  [1]  6489.774  9172.696  8939.401 13889.943 14831.196 17350.066 17483.130
##  [8] 20573.693 20899.480  7347.612  6713.988
plot(datapulaujawa$Yogyakarta, type = "l", col = "green")

## Data Uang Kartal Provinsi Banten

datapulaujawa$Banten
##  [1]    0.000    0.000    0.000    0.000    0.000    0.000 1494.589 4832.095
##  [9] 4476.732 3395.518 2798.384
plot(datapulaujawa$Banten, type = "l", col = "cyan")

Referensi

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