north.arrow

1.6. Melengkapi Peta dengan Arah Utara dan Skala

Tujuan: melengkapi peta dengan arah Utara dan skala peta.

Syarat: telah mengerjakan dan memahami langkah-langkah dasar penampilan data untuk fitur polygon, fitur points, dan penempatan teks.

Buka peta5.R lalu simpan sebagai peta6.R.

Kelengkapan suatu peta antara lain adalah digambarkannya arah orientasi peta (Utara/North) dan skala horisontal dari data spasial. Untuk menampilkan arah orientasi peta dilakukan dengan perintah berikut ini pada bagian akhir script:


# Penempatan North Arrow
north.arrow(1315000, 1070000, len=1000, lab='North', cex.lab=1, tcol='black')

dimana parameter pada fungsi north.arrow() adalah koordinat peta x dan y, lalu besar gambar (len), label arah (lab), besar label arah (cex.lab), dan warna label (tcol).

Hasil dari script diatas adalah sebagai berikut:

North arrow.

Hasil penempatan north arrow.

Bagaimana dengan skala peta? Kita manfaatkan fungsi map.scale() untuk menempatkan skala peta pada peta kita. Gunakan script dibawah ini:


# Penempatan Skala Peta
map.scale(1315000, 1060000, len=10000, units="km",ndivs=2 ,subdiv=1, tcol='black', scol='black', sfcol='black')

Dimana parameter pertama dan kedua adalah koordinat peta x dan y, parameter berikutnya adalah panjang skala (len), label unit jarak yang digunakan (unit), jumlah pembagian skala (ndivs), pembagian skala yang lebih kecil (subdiv), warna teks label (tcol), warna skala (scol), warna bagian skala yang terisi (sfcol).

Hasil dari script itu adalah sebagai berikut:

Hasil penempatan Skala.

Hasil penempatan skala peta.

Script lengkap untuk penempatan north arrow dan map scale ini adalah:


# PROJECT-1: Mengambar Peta Pertama
# Tujuan: Membuat Legenda
# File: peta6.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(1, 0.9, 0.3, 0.5))

# Plot segi empat
rect(1250000, 1028000, 1280000, 1040000, border=TRUE, col=rgb(0, 0.5, 0.5, 0.4))

# Penempatan North Arrow
north.arrow(1315000, 1070000, len=1000, lab='North', cex.lab=1, tcol='black')

Advertisements