Prak Komstat StatDes

library(ggplot2)

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

Data <- read.table(file.choose(), header = TRUE, sep = "\t")
ggplot(Data, aes(x = Provinsi, y = TPT, fill = Provinsi)) +
  geom_bar(stat = "identity") +
  labs(
    title = "Tingkat Pengangguran Terbuka Menurut Provinsi Bulan Agustus Tahun 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"
  )

library(ggplot2)

ggplot(Data, aes(x = TPAK, y = TPT)) +
  geom_point(color = "blue", size = 3) +
  labs(
    title = "Hubungan TPT dan TPAK Menurut Provinsi Bulan Agustus Tahun 2025",
    x = "TPAK (%)",
    y = "TPT (%)"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

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(ggplot2)

Data_Kalimantan <- Data %>%
  filter(Provinsi %in% c(
    "Kalimantan Barat",
    "Kalimantan Tengah",
    "Kalimantan Selatan",
    "Kalimantan Timur",
    "Kalimantan Utara"
  ))

ggplot(Data_Kalimantan,
       aes(x = Provinsi, y = TPT, fill = Provinsi)) +
  geom_col() +
  labs(
    title = "TPT Provinsi di Pulau Kalimantan Bulan Agustus Tahun 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"
  )