TM KOMSTAT 2

library(ggplot2)

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

Data <- read.table(file.choose(),header = TRUE,sep = "\t",stringsAsFactors = FALSE)
Data$Total <- as.numeric(Data$Total)
Data

##                     Provinsi Total_Panjang_Jalan Total
## 1                       Aceh               23874 23874
## 2             Sumatera Utara               40085 40085
## 3             Sumatera Barat               21494 21494
## 4                       Riau               23362 23362
## 5                      Jambi               11569 11569
## 6           Sumatera Selatan               19348 19348
## 7                   Bengkulu                8837  8837
## 8                    Lampung               15078 15078
## 9  Kepulauan Bangka Belitung                 593   593
## 10            Kepulauan Riau                5294  5294
## 11               DKI Jakarta                6505  6505
## 12                Jawa Barat               28626 28626
## 13               Jawa Tengah               31469 31469
## 14             DI Yogyakarta                4914  4914
## 15                Jawa Timur               42976 42976
## 16                    Banten                6542  6542
## 17                      Bali                8707  8707
## 18       Nusa Tenggara Barat                9268  9268
## 19       Nusa Tenggara Timur               22732 22732
## 20          Kalimantan Barat               16978 16978
## 21         Kalimantan Tengah               17917 17917
## 22        Kalimantan Selatan               13721 13721
## 23          Kalimantan Timur                1336  1336
## 24          Kalimantan Utara                4715  4715
## 25            Sulawesi Utara                1082  1082
## 26           Sulawesi Tengah               17224 17224
## 27          Sulawesi Selatan               30047 30047
## 28         Sulawesi Tenggara               12746 12746
## 29                 Gorontalo                5464  5464
## 30            Sulawesi Barat                5648  5648
## 31                    Maluku                8667  8667
## 32              Maluku Utara                7325  7325
## 33               Papua Barat                6245  6245
## 34          Papua Barat Daya                5516  5516
## 35                     Papua                6987  6987
## 36             Papua Selatan                5524  5524
## 37              Papua Tengah                4731  4731
## 38          Papua Pegunungan                7857  7857

# Membuat diagram batang seluruh provinsi
ggplot(
  Data,
  aes(
    x = reorder(Provinsi, Total),
    y = Total
  )
) +
  geom_col(fill = "skyblue") +
  labs(
    title = "Total Panjang Jalan Menurut Provinsi Tahun 2025",
    x = "Provinsi",
    y = "Total Panjang Jalan (km)"
  ) +
  coord_flip() +
  theme_minimal() +
  theme(
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

# Membuat histogram
ggplot(Data, aes(x = Total)) +
  geom_histogram(
    bins = 8,
    fill = "orange",
    color = "black"
  ) +
  labs(
    title = "Distribusi Panjang Jalan Menurut Provinsi Tahun 2025",
    x = "Total Panjang Jalan (km)",
    y = "Frekuensi Provinsi"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(
      hjust = 0.5, face = "bold"
    )
  )

# Pulau Kalimantan
library(ggplot2)
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)

# Memilih data Pulau Kalimantan
Data_Kalimantan <- Data %>%
  filter(str_starts(Provinsi, "Kalimantan"))
Data_Kalimantan

##             Provinsi Total_Panjang_Jalan Total
## 1   Kalimantan Barat               16978 16978
## 2  Kalimantan Tengah               17917 17917
## 3 Kalimantan Selatan               13721 13721
## 4   Kalimantan Timur                1336  1336
## 5   Kalimantan Utara                4715  4715

ggplot(
  Data_Kalimantan,
  aes(
    x = reorder(Provinsi, Total),
    y = Total,
    fill = Provinsi
  )
) +
  geom_col() +
  labs(
    title = "Total Panjang Jalan Pulau Kalimantan Tahun 2025",
    x = "Provinsi",
    y = "Total Panjang Jalan (km)"
  ) +
  coord_flip() +
  theme_minimal() +
  theme(
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    ),
    legend.position = "none"
  )