cex

1.3. Menempatkan Teks pada Peta

Syarat: lakukan Project_01:File2 (klik disini)

Tujuan: menempatkan teks pada peta.

Gunakan script peta2.R lalu simpan sebagai peta3.R.

Untuk menambahkan teks pada peta kita gunakan fungsi text(). Tambahkan baris perintah pada bagian akhir dari script seperti dibawah ini:


text(1287000, 1053000, "Appling County", cex=1.5)
text(1287000, 1049000, "Georgia", col='darkred')

Dua parameter pertama dari fungsi text adalah koordinat peta, sedangkan parameter ketiga adalah teks yang akan ditampilkan. Parameter keempat adalah fungsi cex (character expansion) atau besar ukuran teks. Sedangkan col dapat diisi dengan kode warna.

Gambar yang dihasilkan adalah:

Penempatan teks pada peta.

Hasil penempatan teks pada peta.

Script lengkap dari pekerjaan ini disimpan dengan nama peta3.R, adalah sebagai berikut:


# PROJECT-1: Mengambar Peta Pertama
# Tujuan: Menempatkan teks
# File: peta3.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))

# Penempatan teks pada peta
text(1287000, 1053000, "Appling County", cex=1.5)
text(1287000, 1049000, "Georgia", col='darkred')

Advertisements