TM.KOMSTAT_ZULFADLIAHWALRAMADHAN

library(ggplot2)

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

library(dplyr)

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

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

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

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

##                Provinsi  TPT
## 1                  ACEH 6.03
## 2        SUMATERA UTARA 5.89
## 3        SUMATERA BARAT 5.90
## 4                  RIAU 4.23
## 5                 JAMBI 4.53
## 6      SUMATERA SELATAN 4.11
## 7              BENGKULU 3.42
## 8               LAMPUNG 4.23
## 9  KEP  BANGKA BELITUNG 4.56
## 10             KEP RIAU 6.80
## 11          DKI JAKARTA 6.53
## 12           JAWA BARAT 7.44
## 13          JAWA TENGAH 5.13
## 14        DI YOGYAKARTA 3.69
## 15           JAWA TIMUR 4.88
## 16               BANTEN 7.52
## 17                 BALI 2.69
## 18  NUSA TENGGARA BARAT 2.80
## 19  NUSA TENGGARA TIMUR 3.14
## 20     KALIMANTAN BARAT 5.05
## 21    KALIMANTAN TENGAH 4.10
## 22   KALIMANTAN SELATAN 4.31
## 23     KALIMANTAN TIMUR 5.31
## 24     KALIMANTAN UTARA 4.01
## 25       SULAWESI UTARA 6.10
## 26      SULAWESI TENGAH 2.95
## 27     SULAWESI SELATAN 4.33
## 28    SULAWESI TENGGARA 3.15
## 29            GORONTALO 3.06
## 30       SULAWESI BARAT 3.04
## 31               MALUKU 6.31
## 32         MALUKU UTARA 4.31
## 33          PAPUA BARAT 5.38
## 34     PAPUA BARAT DAYA 5.20
## 35                PAPUA 2.67
## 36        PAPUA SELATAN 4.25
## 37         PAPUA TENGAH 4.10
## 38     PAPUA PEGUNUNGAN 1.82

# Visualisasi 1

ggplot(Data, aes(x = TPT)) +
  geom_histogram(
    binwidth = 1,
    boundary = 1,
    fill = "pink",
    color = "black"
  ) +
  scale_x_continuous(
    breaks = seq(1, 9, by = 1),
    limits = c(1, 9)
  ) +
  labs(
    title = "TPT di Indonesia",
    x = "TPT",
    y = "Freq"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 0, hjust = 0.5),
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

# Visualisasi 2

ggplot(Data, aes(x = "", y = TPT)) +
  geom_boxplot(fill = "red") +
  labs(
    title = "Box Plot TPT Indonesia 2023",
    x = "",
    y = "TPT"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

# Visualisasi 3

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

Data_Kalimantan

##             Provinsi  TPT
## 1   KALIMANTAN BARAT 5.05
## 2  KALIMANTAN TENGAH 4.10
## 3 KALIMANTAN SELATAN 4.31
## 4   KALIMANTAN TIMUR 5.31
## 5   KALIMANTAN UTARA 4.01

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