TM 2 KOMSTAT

Data <- read.table(file.choose(), header = TRUE, sep = "\t")
Data

##                     Provinsi   PDRB
## 1                       Aceh   2.97
## 2             Sumatera Utara   4.53
## 3             Sumatera Barat   3.37
## 4                       Riau   4.79
## 5                      Jambi   4.93
## 6           Sumatera Selatan   5.35
## 7                   Bengkulu   4.80
## 8                    Lampung   5.28
## 9  Kepulauan Bangka Belitung   4.09
## 10            Kepulauan Riau   6.94
## 11               DKI Jakarta   5.21
## 12                Jawa Barat   5.32
## 13               Jawa Tengah   5.37
## 14             DI Yogyakarta   5.49
## 15                Jawa Timur   5.33
## 16                    Banten   5.37
## 17                      Bali   5.82
## 18       Nusa Tenggara Barat   3.22
## 19       Nusa Tenggara Timur   5.14
## 20          Kalimantan Barat   5.39
## 21         Kalimantan Tengah   4.80
## 22        Kalimantan Selatan   5.22
## 23          Kalimantan Timur   4.53
## 24          Kalimantan Utara   4.56
## 25            Sulawesi Utara   5.66
## 26           Sulawesi Tengah   8.47
## 27          Sulawesi Selatan   5.43
## 28         Sulawesi Tenggara   5.79
## 29                 Gorontalo   5.71
## 30            Sulawesi Barat   5.36
## 31                    Maluku   4.56
## 32              Maluku Utara  34.17
## 33               Papua Barat   6.46
## 34          Papua Barat Daya   4.03
## 35                     Papua   3.97
## 36             Papua Selatan   3.39
## 37              Papua Tengah -21.80
## 38          Papua Pegunungan   3.75

#HISTOGRAM
library(ggplot2)
ggplot(Data, aes(x = PDRB)) +
  geom_histogram(
    binwidth = 5,
    boundary = -25,
    fill = "pink",
    color = "black"
  ) +
  scale_x_continuous(
    breaks = seq(-25, 35, by = 5),
    limits = c(-25, 35)
  ) +
  labs(
    title = "Distribusi Laju Pertumbuhan PDRB Indonesia",
    x = "Laju Pertumbuhan PDRB (%)",
    y = "Freq"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 0, hjust = 0.5),
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

#BOXPLOT
library(ggplot2)

ggplot(Data, aes(x = "", y = PDRB)) +
  geom_boxplot(
    fill = "black",
    color = "orange",
    width = 0.6,          
    size = 0.8,           
    outlier.color = "blue", 
    outlier.size = 2.5
  ) +
  labs(
    title = "Box Plot Laju Pertumbuhan PDRB Indonesia",
    x = "",
    y = "Laju Pertumbuhan PDRB (%)"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

#BARPLOT PULAU KALIMANTAN
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(stringr)
library(ggplot2)

Data_Kalimantan <- Data %>%
  filter(str_starts(Provinsi, "Kalimantan"))

ggplot(Data_Kalimantan, aes(x = Provinsi, y = PDRB, fill = Provinsi)) +
  geom_col() +
  labs(
    title = "Laju Pertumbuhan PDRB Pulau Kalimantan",
    x = "Provinsi",
    y = "Laju Pertumbuhan PDRB (%)"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(hjust = 0.5, face = "bold"),
    legend.position = "none"
  )