Tugas Minggu 11 BINTEL

Dokumen berikut merupakan tugas praktek penggunaan R Markdown menggunakan hasil tugas “trellis graphics” data kepadatan kelurahan DKI Jakarta 2013.

knitr::opts_chunk$set(echo=TRUE)
knitr::opts_chunk$set(fig.cap=TRUE)
library(lattice)

## Warning: package 'lattice' was built under R version 4.3.3

library(readxl)

## Warning: package 'readxl' was built under R version 4.3.3

kepadatankelurahanjkt2013 <- read_excel("~/Kuliah/Smst 6/BINTEL/kepadatankelurahanjkt2013.xlsx")
kepadatankelurahanjkt2013

## # A tibble: 267 × 7
##    Tahun Prov                 Kab                Kec       Kel   Luas  Kepadatan
##    <dbl> <chr>                <chr>              <chr>     <chr> <chr>     <dbl>
##  1  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. P… 0.91       6779
##  2  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. K… 3.76       1705
##  3  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. H… 3.59        628
##  4  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. U… 0.59       3625
##  5  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. T… 1.57       3084
##  6  2013 PROVINSI DKI JAKARTA KAB.ADM.KEP.SERIBU KEP. SER… P. P… 1.39       1968
##  7  2013 PROVINSI DKI JAKARTA JAKARTA PUSAT      GAMBIR    GAMB… 2.58       1350
##  8  2013 PROVINSI DKI JAKARTA JAKARTA PUSAT      GAMBIR    CIDE… 1.26      14584
##  9  2013 PROVINSI DKI JAKARTA JAKARTA PUSAT      GAMBIR    PETO… 1.12      18987
## 10  2013 PROVINSI DKI JAKARTA JAKARTA PUSAT      GAMBIR    PETO… 1.14      14465
## # ℹ 257 more rows

Visualisasi Data

xyplot(Luas~Kepadatan|factor(Kab),
       data=kepadatankelurahanjkt2013,
       layout=c(3,2),
       aspect=1,
       scales=list(y=list(at=seq(0, 10, 1)),
                   x=list(at=seq(0, 95000, 10000),
                          rot=45)),
       main="Kepadatan dan Luas Kelurahan DKI Jakarta (2013)",
       ylab=expression(paste("Luas Daerah (", km^2,")")),
       xlab=expression(paste("Kepadatan (",Jiwa/km^2,")")),
       panel=function(x,y,...){
         panel.lmline(x,y)
         panel.xyplot(x,y,...)})

Kepadatan dan Luas Kelurahan Kabupaten dan Kota Administrasi DKI Jakarta 2013

xyplot(Luas~Kepadatan,
       data=kepadatankelurahanjkt2013,
       group=Kab,
       auto.key=list(space="right"),
       scales=list(y=list(at=seq(0, 10, 1)),
                   x=list(at=seq(0, 95000, 10000))),
       ylab=expression(paste("Luas Daerah (", km^2,")")),
       xlab=expression(paste("Kepadatan (",Jiwa/km^2,")")),
       panel=function(x,y,...){
         panel.lmline(x,y)
         panel.xyplot(x,y,...)})

Kepadatan dan Luas Kelurahan Kabupaten dan Kota Administrasi DKI Jakarta