Pendahuluan

Dokumen R Markdown ini dibuat sebagai contoh penggunaan syntax R yang pernah digunakan sebelumnya.
Pada dokumen ini digunakan data Tugas 1 mengenai luas wilayah dan kepadatan penduduk kelurahan di DKI Jakarta.

Visualisasi data dibuat menggunakan package lattice dan latticeExtra.

Input Data

Bagian ini digunakan untuk memanggil package yang diperlukan, membaca data CSV, dan mengganti nama variabel agar lebih mudah digunakan.

library(lattice)
## Warning: package 'lattice' was built under R version 4.5.3
library(latticeExtra)
## Warning: package 'latticeExtra' was built under R version 4.5.3
Datatugas <- "C:/Users/AUL/OneDrive/BINTEL 2026/Data tugas 1 diperbaiki.csv"
DataBI <- read.csv(Datatugas)

names(DataBI) <- c("Tahun", "Prov", "Kab", "Kec", "Kel", "Luas", "Kepadatan")

Pemeriksaan Data

Bagian ini digunakan untuk mengecek ukuran data, melihat beberapa data pertama, jumlah kolom, dan nama variabel.

dim(DataBI)
## [1] 267   7
head(DataBI)
##   Tahun                 Prov                Kab             Kec            Kel
## 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 Kepadatan
## 1 0.91      6779
## 2 3.76      1705
## 3 3.59       628
## 4 0.59      3625
## 5 1.57      3084
## 6 1.39      1968
ncol(DataBI)
## [1] 7
names(DataBI)
## [1] "Tahun"     "Prov"      "Kab"       "Kec"       "Kel"       "Luas"     
## [7] "Kepadatan"

Visualisasi Menggunakan Lattice

Grafik berikut menunjukkan hubungan antara luas wilayah kelurahan dengan kepadatan penduduk di DKI Jakarta tahun 2013.

xyplot(Kepadatan ~ Luas, data = DataBI,
       main = "Kepadatan vs Luas Kelurahan DKI 2013",
       xlab = "Luas (KM2)",
       ylab = "Kepadatan (Jiwa/KM2)")

Visualisasi Berdasarkan Kabupaten/Kota

Grafik berikut menunjukkan hubungan antara luas wilayah dan kepadatan penduduk dengan pengelompokan berdasarkan kabupaten/kota.

xyplot(Kepadatan ~ Luas, data = DataBI,
       group = Kab, auto.key = list(space = "right"),
       main = "Kepadatan vs Luas menurut Kab/Kota",
       xlab = "Luas (KM2)",
       ylab = "Kepadatan (Jiwa/KM2)")

Visualisasi Menggunakan LatticeExtra

Pada grafik berikut, visualisasi ditampilkan berdasarkan masing-masing kabupaten/kota. Garis regresi ditambahkan untuk melihat pola hubungan antara luas dan kepadatan. Garis putus-putus menunjukkan nilai median kepadatan.

med.kepadatan <- median(DataBI$Kepadatan)
max.luas <- max(DataBI$Luas)

xyplot(Kepadatan ~ Luas | Kab, data = DataBI,
       layout = c(3, 2), aspect = 1,
       main = "Kepadatan vs Luas per Kab/Kota",
       xlab = "Luas (KM2)",
       ylab = "Kepadatan (Jiwa/KM2)",
       panel = function(x, y, ...) {
         panel.lmline(x, y)
         panel.xyplot(x, y, ...)
       }) +
  layer(panel.abline(h = med.kepadatan, lty = "dashed")) +
  layer(panel.text(max.luas * 0.95, med.kepadatan * 1.02, "median",
                   adj = c(1, 0), cex = .7))

Kesimpulan

Berdasarkan visualisasi yang telah dibuat, dapat dilihat hubungan antara luas wilayah kelurahan dan kepadatan penduduk di DKI Jakarta.
Visualisasi berdasarkan kabupaten/kota membantu melihat pola data dengan lebih jelas pada setiap wilayah.