TugasMarkdown

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

## # A tibble: 267 × 7
##    Tahun Prov                 Kab                Kec       Kel    Luas Kepadatan
##    <dbl> <chr>                <chr>              <chr>     <chr> <dbl>     <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

#install package
library(lattice)
library(latticeExtra)

barchart(Kepadatan ~ Kab,
         data=data,
         col="cyan",
         main="Kepadatan Penduduk/Kabupaten",
         xlab="Kabupaten",
         ylab="Kepadatan Penduduk")

xyplot(Kepadatan ~ Luas | factor(Kab),
       data=data,
       layout=c(6,1),
       aspect=1,
       col="purple",
       ylab="Kepadatan Penduduk",
       xlab="Luas Wilayah")

Dari grafik dapat dilihat bahwa persebaran produk terbanyak dan terpadat terletak di Jakarta Barat dan terbanyak kedua Adalah Jakarta Pusat. Sedangkan, persebaran penduduk paling sedikit dimiliki oleh Kabupaten Administrasi Kepulauan Seribu