Analisis Peredaran Uang Kuartal di Kalimantan

Dosen Pengampu : Prof. Dr. Suhartono, Mkom

library(readxl)

## Warning: package 'readxl' was built under R version 4.1.3

datainflowkalimantan <- read_excel(path = "kalimantan.xlsx")
datainflowkalimantan

## # A tibble: 5 x 12
##   Provinsi `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018` `2019` `2020`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Kaliman~  2831.  3386.  4029.  5943.  6675.  7440.  7775. 10249. 11848.  9294.
## 2 Kaliman~   779.  1135. 19328.  1887.  3547.  3694.  3655.  4083.  4385.  4178.
## 3 Kaliman~  5369.  7311.  4226.  9614.  9558. 10809. 12415. 13604. 14462. 11753.
## 4 Kaliman~  4293.  5743. 10115.  8936.  9646. 10903. 10933. 12305. 13991. 10612.
## 5 Kaliman~     0      0      0      0      0      0    341.   917.  1472.  1362.
## # ... with 1 more variable: `2021` <dbl>

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.3

## -- 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

## Warning: package 'ggplot2' was built under R version 4.1.3

## Warning: package 'tibble' was built under R version 4.1.3

## Warning: package 'tidyr' was built under R version 4.1.3

## Warning: package 'readr' was built under R version 4.1.3

## Warning: package 'purrr' was built under R version 4.1.3

## Warning: package 'dplyr' was built under R version 4.1.3

## Warning: package 'stringr' was built under R version 4.1.3

## Warning: package 'forcats' was built under R version 4.1.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

datakalimantan <- datainflowkalimantan  %>%
  pivot_longer (
  cols = 2:12,
  names_to = "years",
  values_to = "cases"
  )
datakalimantan

## # A tibble: 55 x 3
##    Provinsi         years  cases
##    <chr>            <chr>  <dbl>
##  1 Kalimantan Barat 2011   2831.
##  2 Kalimantan Barat 2012   3386.
##  3 Kalimantan Barat 2013   4029.
##  4 Kalimantan Barat 2014   5943.
##  5 Kalimantan Barat 2015   6675.
##  6 Kalimantan Barat 2016   7440.
##  7 Kalimantan Barat 2017   7775.
##  8 Kalimantan Barat 2018  10249.
##  9 Kalimantan Barat 2019  11848.
## 10 Kalimantan Barat 2020   9294.
## # ... with 45 more rows

ggplot(data = datakalimantan) +
  geom_col(
    mapping = aes(x = years, y = cases, fill = Provinsi),
    width = 1
  )