transparent

1.2. Memberi Warna pada Polygon

Syarat: lakukan Project_01:Peta1. (klik disini)

Gunakan script pada pekerjaan peta1.R lalu simpan sebagai peta2.R.

Ubah pada baris fungsi polygon menjadi:


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

Warna plot adalah nilai RGB (tiga angka berurutan), yaitu antara nilai 0 (nol) sampai dengan 1 (satu). Pada contoh diatas R=0, G=0.7, dan B=0.5.

Akan dihasilkan gambar:

Memberi warna pada poligon.

Memberi warna pada poligon.

Parameter pada fungsi rgb() dapat ditambahkan dengan nilai transparan dengan besaran antara 0 dan 1 (invisible to opaque). Contoh berikut ini adalah nilai transparan pada 0.2.


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

Maka poligon akan mempunyai warna:

Warna transparan pada poligon.

Warna transparan pada poligon.

Script lengkap dari pekerjaan ini diberi nama peta2.R, adalah sebagai berikut:


# PROJECT-1: Mengambar Peta Pertama
# File: peta2.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))