tm komstat 2

Data=read.table(file.choose(), header=TRUE)
Data

##               PROVINSI  TPT
## 1                 ACEH 5.64
## 2       SUMATERA_UTARA 5.32
## 3       SUMATERA_BARAT 5.62
## 4                 RIAU 4.16
## 5                JAMBI 4.26
## 6     SUMATERA_SELATAN 3.69
## 7             BENGKULU 3.41
## 8              LAMPUNG 4.21
## 9  KEP_BANGKA_BELITUNG 4.45
## 10            KEP_RIAU 6.45
## 11         DKI_JAKARTA 6.05
## 12          JAWA_BARAT 6.77
## 13         JAWA_TENGAH 4.66
## 14       DI_YOGYAKARTA 3.46
## 15          JAWA_TIMUR 3.88
## 16              BANTEN 6.69
## 17                BALI 1.49
## 18 NUSA_TENGGARA_BARAT 3.06
## 19 NUSA_TENGGARA_TIMUR 3.31
## 20    KALIMANTAN_BARAT 4.82
## 21   KALIMANTAN_TENGAH 3.97
## 22  KALIMANTAN_SELATAN 4.16
## 23    KALIMANTAN_TIMUR 5.18
## 24    KALIMANTAN_UTARA 3.85
## 25      SULAWESI_UTARA 5.99
## 26     SULAWESI_TENGAH 2.92
## 27    SULAWESI_SELATAN 4.21
## 28   SULAWESI_TENGGARA 3.31
## 29           GORONTALO 3.42
## 30      SULAWESI_BARAT 2.86
## 31              MALUKU 6.27
## 32        MALUKU_UTARA 4.55
## 33         PAPUA_BARAT 4.55
## 34    PAPUA_BARAT_DAYA 6.85
## 35               PAPUA 6.96
## 36       PAPUA_SELATAN 4.04
## 37        PAPUA_TENGAH 3.62
## 38    PAPUA_PEGUNUNGAN 1.68

library(ggplot2)

ggplot(Data, aes(x = TPT)) +
 geom_histogram(
 binwidth = 1,
 boundary = 1,
 fill = "pink",
 color = "black"
 ) +
 scale_x_continuous(
 breaks = seq(1, 7, by = 1),
 limits = c(1, 7)
 ) +
 labs(
 title = "TPT di Indonesia Agustus 2025",
 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"
 )
 )

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

Kalimantan=read.table(file.choose(), header=TRUE)
Kalimantan

##             PROVINSI  TPK
## 1   KALIMANTAN_BARAT 4.82
## 2  KALIMANTAN_TENGAH 3.97
## 3 KALIMANTAN_SELATAN 4.16
## 4   KALIMANTAN_TIMUR 5.18
## 5   KALIMANTAN_UTARA 3.85

ggplot(Kalimantan, aes(x = PROVINSI, y = TPK, fill = PROVINSI)) +
  geom_col() +
  labs(
    title = "TPT Pulau Kalimantan Agustus 2025",
    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"
  )