3.4. Plot Label dari Attribute Peta

Tujuan: Menampilkan label yang didapat dari attribute data spasial. Pada attribute ini terdapat field berupa teks (label) dan posisi X (longitude) dan Y (latitude)

Syarat: sistem telah terinstall paket GISTools. Data adalah batas kecamatan di Kabupaten Karawang, yang telah digunakan pada tahapan sebelumnya.

Yang dilakukan pertama adalah mempersiapkan lingkungan sistem dan mendefinisikan folder kerja.


# === MEMULAI R
rm(list=ls()) # Menghapus semua dataset dan variabel
graphics.off() # Menutup semua grafik

# Menentukan folder kerja
setwd("D:/_randmm/project03")
getwd() # Periksa direktori kerja
# ===

Berikutnya adalah mengunggah paket GISTools pada sistem, dan membuka obyek spasial dari data latihan. Pada saat mengunggah data ini sekalian didefinisikan referensi koordinat. Definiskan satu lagi obyek spasial baru berdasarkan data yang telah ada sebagai outline.


# Unggah paket GISTools
library(GISTools)

# Unggah data kedalam object
KW_kec <-readShapePoly("karawang_admkec", proj4string = CRS("+init=EPSG:32748"))
KW_kec.outline <- gUnaryUnion(KW_kec, id=NULL)

Untuk mengetahui posisi field dari teks label, X, dan Y digunakan fungsi names() seperti berikut ini:


# Periksa posisi untuk nilai X (longitude), Y (latitude), dan Label
names(KW_kec)

Kemudian kita definisikan obyek untuk menyimpan teks label, dan posisi label dalam X dan Y.


# Definisikan nilai Lat dan Lon
Lat <- data.frame(KW_kec)[,8] # Field Y pada posisi 8
Lon <- data.frame(KW_kec)[,7] # Field X pada posisi 7

# Definisikan label yang akan dimunculkan pada peta
LabelNames <- data.frame(KW_kec)[,3] # Field Kecamatan pada posisi 3

Bagian terakhir adalah mempersiapkan window plot. Proses plot data spasial serta labelnya menggunakan fungsi pointLabel().


# Mengatur window plot dan melakukan plot data spasial dan labelnya
par(mar=c(0,0,0,0))
plot(KW_kec, col="yellow", bg=NA)
plot(KW_kec.outline, lwd=2, add=TRUE)
pl <- pointLabel(Lon, Lat, LabelNames, offset= 0, cex=.5, pos=1)

Hasil akhir yang diperoleh pada window plot adalah sebagai berikut:

Hasil plotting data spasial dan label dari attribute.

Hasil plotting data spasial dan label dari attribute.

Jangan lupa simpan script dengan nama Project_03_4.R.

Versi lengkap dari script dan hasil proses dapat dilihat di Project_03_4.html


Referensi fungsi:

_

Advertisements