Analisa Uang Kuartal Bali-NTB-NTT

Dosen Pengampu : Prof. Dr. Suhartono, Mkom

library(readxl)
datainflowbalinusra <- read_excel(path = "balinusra.xlsx")
datainflowbalinusra

## # A tibble: 4 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 <NA>        NA     NA     NA     NA     NA     NA     NA     NA     NA     NA 
## 2 Bali      6394.  8202.  5066. 11590. 13072. 17914. 16962. 18610. 21422. 14735.
## 3 Nusa Te~  1803.  3676.  7024.  5704.  6285.  8842.  8383.  9140.  9614.  8007.
## 4 Nusa Te~  2125.  2735.  5422.  3512.  3651.  4210.  5452.  6116.  7080.  6657.
## # ... with 1 more variable: `2021` <dbl>

library(tidyverse)

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

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

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

## # A tibble: 44 x 3
##    Provinsi years cases
##    <chr>    <chr> <dbl>
##  1 <NA>     2011     NA
##  2 <NA>     2012     NA
##  3 <NA>     2013     NA
##  4 <NA>     2014     NA
##  5 <NA>     2015     NA
##  6 <NA>     2016     NA
##  7 <NA>     2017     NA
##  8 <NA>     2018     NA
##  9 <NA>     2019     NA
## 10 <NA>     2020     NA
## # ... with 34 more rows

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

## Warning: Removed 11 rows containing missing values (position_stack).