Peredaran Jenis Uang pada Bank Indonesia pada Tahun 2020

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

library(readxl)
dataperedaranuang <- read_excel(path = "UangBeredar.xlsx")
dataperedaranuang

## # A tibble: 6 x 13
##   `Jenis Uang`  Januari Februari Maret April Mei   Juni  Juli  Agustus September
##   <chr>         <chr>   <chr>    <chr> <chr> <chr> <chr> <chr> <chr>   <chr>    
## 1 UangKartal    616129~ 607961.~ 6203~ 6341~ 6850~ 6850~ 6681~ 661167~ 674441.24
## 2 UangGiral     868273~ 897529.~ 1028~ 9422~ 9685~ 9859~ 1015~ 109847~ 1106280.~
## 3 Jumlah(M1)    148440~ 1505491~ 1648~ 1576~ 1653~ 1637~ 1683~ 175963~ 1780721.~
## 4 UangKuasi     453552~ 4584358~ 4763~ 4637~ 4790~ 4735~ 4865~ 494701~ 4946507.~
## 5 SuratBerharg~ 26719.~ 26646.00 2817~ 2456~ 2442~ 2096~ 1876~ 19479.~ 21345.42 
## 6 Jumlah(M2)    604665~ 6116495~ 6440~ 6238~ 6468~ 6393~ 6567~ 672613~ 6748574.~
## # ... with 3 more variables: Oktober <chr>, November <chr>, Desember <chr>

uangkartal <- c(616129.00, 607961.00, 620353.24, 634149.00, 685044.47,685044.47)
plot(uangkartal)

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

uangkartal <- c(616129.00, 607961.00, 620353.24, 634149.00, 685044.47,685044.47)
barplot(uangkartal)

barplot(uangkartal, main="uangkartal", xlab="Bulan",names.arg=c("Januari","Februari","Maret","April","Mei","Juni"))

Sumber : Bank Indonesia Source Url: https://www.bps.go.id/indicator/13/123/2/uang-beredar.html