rect()

1.5. Membuat Tempat untuk Legenda Peta

Syarat: telah menyelesaikan Project_01:Peta2 (klik disini)

Tujuan: membuat segiempat tempat untuk legenda peta.

Salah satu kelengkapan dalam penggambaran peta adalah keterangan peta tersebut atau biasa dikenal dengan legenda peta. Untuk membuatnya kita dapat menggunakan fungsi rect().

Buka file peta2.R lalu simpan sebagai peta5.R.

Tambahkan pada bagian akhir dari script:


# Plot segi empat
rect(1250000, 1030000, 1280000, 1040000, border=NA, col=rgb(0, 0.5, 0.5, 0.7))

Parameter pada rect(x1, y1, x2, y2) adalah koordinat peta x1 dan y1 (posisi kiri bawah) dan x2 dan y2 (kanan atas). Parameter selanjutnya adalah mengenai kosmetiknya seperti pembatas (border) dan warna (col) dari segi empat tersebut.

Jalankan script secara keseluruhan. Akan didapat hasil seperti dibawah ini:

Hasil pembuatan segi empat.

Hasil pembuatan segi empat.

Dengan menambahkan teks pada segi empat tersebut yang sesuai dengan keperluan (baca caranya dengan klik disini) maka peta kita akan semakin lengkap.

Script lengkap untuk pekerjaan ini disimpan dengan nama peta5.R, adalah sebagai berikut:


# PROJECT-1: Mengambar Peta Pertama
# Tujuan: Membuat tempat Legenda
# File: peta5.R

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

# Menentukan direktori kerja
# Jangan gunakan spasi! gunakan "_" atau "." jika diperlukan
setwd("D:/_randmm/project01")
getwd() # Periksa isi direktori kerja
# ===

# Unggah paket GISTools
library(GISTools)

# Unggah data spasial Georgia
data("georgia")

# Pilih elemen pertama, simpan sebagai appling
appling <- georgia.polys[[1]]

# Tentukan batas luar plot
plot(appling, asp=1, type='n', xlab="Easting", ylab="Northing")

# Plot fitur yang telah dipilih dengan warna dan tingkat transparan
polygon(appling, col=rgb(0, 0.7, 0.5, 0.2))

# Plot segi empat
rect(1250000, 1030000, 1280000, 1040000, border=NA, col=rgb(0, 0.5, 0.5, 0.7))

Advertisements