Pendahuluan

Dokumen ini berisi visualisasi data kepadatan penduduk menggunakan package ggplot2 pada R Markdown.

Import Data

library(readr)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.3
data <- read.csv("dkikepadatankelurahan2013.csv", sep = ";")

head(data)
##   TAHUN        NAMA.PROVINSI NAMA.KABUPATEN.KOTA  NAMA.KECAMATAN NAMA.KELURAHAN
## 1  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU UTR    P. PANGGANG
## 2  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU UTR      P. KELAPA
## 3  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU UTR     P. HARAPAN
## 4  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU SLT P. UNTUNG JAWA
## 5  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU SLT      P. TIDUNG
## 6  2013 PROVINSI DKI JAKARTA  KAB.ADM.KEP.SERIBU KEP. SERIBU SLT        P. PARI
##   LUAS.WILAYAH..KM2. KEPADATAN..JIWA.KM2.
## 1               0.91                 6779
## 2               3.76                 1705
## 3               3.59                  628
## 4               0.59                 3625
## 5               1.57                 3084
## 6               1.39                 1968

Rename Variabel

colnames(data) <- c("Tahun", "Prov", "Kab", "Kec", "Kel", "Luas", "Kepadatan")

str(data)
## 'data.frame':    267 obs. of  7 variables:
##  $ Tahun    : int  2013 2013 2013 2013 2013 2013 2013 2013 2013 2013 ...
##  $ Prov     : chr  "PROVINSI DKI JAKARTA" "PROVINSI DKI JAKARTA" "PROVINSI DKI JAKARTA" "PROVINSI DKI JAKARTA" ...
##  $ Kab      : chr  "KAB.ADM.KEP.SERIBU" "KAB.ADM.KEP.SERIBU" "KAB.ADM.KEP.SERIBU" "KAB.ADM.KEP.SERIBU" ...
##  $ Kec      : chr  "KEP. SERIBU UTR" "KEP. SERIBU UTR" "KEP. SERIBU UTR" "KEP. SERIBU SLT" ...
##  $ Kel      : chr  "P. PANGGANG" "P. KELAPA" "P. HARAPAN" "P. UNTUNG JAWA" ...
##  $ Luas     : num  0.91 3.76 3.59 0.59 1.57 1.39 2.58 1.26 1.12 1.14 ...
##  $ Kepadatan: int  6779 1705 628 3625 3084 1968 1350 14584 18987 14465 ...

Visualisasi Jumlah Kelurahan per Kabupaten/Kota

ggplot(data = data, aes(x = Kab, fill = Kab)) +
  geom_bar() +
  labs(
    title = "Jumlah Kelurahan per Kabupaten/Kota",
    x = "Kabupaten/Kota",
    y = "Jumlah Kelurahan"
  ) +
  theme_light()