Dosen Pengampu : Prof. Dr. Suhartono, Mkom

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.3
datainflowjawa <- read_excel(path = "jawa.xlsx")
datainflowjawa
## # 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 Jawa Ba~ 43775. 60629. 35190. 78660. 81303. 88036. 83220. 8.72e4 9.48e4 76883.
## 2 Jawa Te~ 35137. 43298. 42182. 60476. 65198. 72782. 77031. 8.78e4 9.08e4 84970.
## 3 Yogyaka~  6490.  9173.  8939. 13890. 14831. 17350. 17483. 2.06e4 2.09e4  7348.
## 4 Jawa Ti~ 38515. 47383. 48687. 64276. 68808. 83439. 98380. 1.06e5 1.14e5 86848.
## 5 Banten       0      0      0      0      0      0   1495. 4.83e3 4.48e3  3396.
## # ... 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()
datajawa <- datainflowjawa  %>%
  pivot_longer (
  cols = 2:12,
  names_to = "years",
  values_to = "cases"
  )
datajawa
## # A tibble: 55 x 3
##    Provinsi   years  cases
##    <chr>      <chr>  <dbl>
##  1 Jawa Barat 2011  43775.
##  2 Jawa Barat 2012  60629.
##  3 Jawa Barat 2013  35190.
##  4 Jawa Barat 2014  78660.
##  5 Jawa Barat 2015  81303.
##  6 Jawa Barat 2016  88036.
##  7 Jawa Barat 2017  83220.
##  8 Jawa Barat 2018  87243.
##  9 Jawa Barat 2019  94846.
## 10 Jawa Barat 2020  76883.
## # ... with 45 more rows
ggplot(data = datajawa) +
  geom_col(
    mapping = aes(x = years, y = cases, fill = Provinsi),
    width = 1
  )