TM 2 KOMSTAT

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

data

##               Kantor_Wilayah Narapidana_Perempuan
## 1                       Aceh                  188
## 2                       Bali                  292
## 3                     Banten                  430
## 4                   Bengkulu                   79
## 5                Dki Jakarta                  590
## 6             D.I.Yogyakarta                  178
## 7                  Gorontalo                   51
## 8                      Jambi                  229
## 9                 Jawa Barat                  725
## 10               Jawa Tengah                  485
## 11                Jawa Timur                  894
## 12          Kalimantan Barat                  315
## 13        Kalimantan Selatan                  472
## 14         Kalimantan Tengah                  342
## 15          Kalimantan Timur                  687
## 16 Kepulauan Bangka Belitung                  111
## 17            Kepulauan Riau                  246
## 18                   Lampung                  230
## 19                    Maluku                   63
## 20              Maluku Utara                   21
## 21       Nusa Tenggara Barat                  208
## 22       Nusa Tenggara Timur                   91
## 23                     Papua                   75
## 24               Papua Barat                   70
## 25                      Riau                  629
## 26            Sulawesi Barat                   41
## 27          Sulawesi Selatan                  492
## 28           Sulawesi Tengah                  228
## 29         Sulawesi Tenggara                  159
## 30            Sulawesi Utara                   95
## 31            Sumatera Barat                  197
## 32          Sumatera Selatan                  560
## 33            Sumatera Utara                  932

library(ggplot2)

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

ggplot(data, aes(x = Kantor_Wilayah, y = Narapidana_Perempuan)) +
  geom_col() +
  labs(
    title = "Jumlah Narapidana Perempuan Menurut Provinsi",
    x = "Provinsi",
    y = "Jumlah Narapidana Perempuan (orang)"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(
      angle = 45,
      hjust = 1
    ),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

ggplot(data, aes(x = Narapidana_Perempuan)) +
  geom_histogram(
    binwidth = 100,
    boundary = 0,
    fill = "pink",
    color = "black"
  ) +
  labs(
    title = "Distribusi Jumlah Narapidana Perempuan",
    x = "Jumlah Narapidana Perempuan (orang)",
    y = "Frekuensi"
  ) +
  theme_classic() +
  theme(
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

data_kalimantan = subset(
  data,
  Kantor_Wilayah %in% c(
    "Kalimantan Barat",
    "Kalimantan Selatan",
    "Kalimantan Tengah",
    "Kalimantan Timur"
  )
)

data_kalimantan

##        Kantor_Wilayah Narapidana_Perempuan
## 12   Kalimantan Barat                  315
## 13 Kalimantan Selatan                  472
## 14  Kalimantan Tengah                  342
## 15   Kalimantan Timur                  687

ggplot(
  data_kalimantan,
  aes(
    x = Kantor_Wilayah,
    y = Narapidana_Perempuan
  )
) +
  geom_col() +
  labs(
    title = "Jumlah Narapidana Perempuan di Pulau Kalimantan",
    x = "Provinsi",
    y = "Jumlah Narapidana Perempuan (orang)"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(
      angle = 45,
      hjust = 1
    ),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )