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

2 comments

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s