library

1.1. Menggambar Peta Pertama

Memulai menggambar data spasial dengan R. Untuk latihan kita gunakan data yang telah tersedia pada paket GISTools, yaitu data negara bagian Georgia, Amerika.

Jalankan RStudio. Buat direktori (folder) kerja, misal pada d:\_randmm\project01\

Langkah pertama adalah buat file script R yang baru, beri nama peta1.R pada direktori kerja.

Mulai dengan membersihkan memori dan ruang grafik, serta tentukan direktori kerja. Ikuti perintah berikut:


# === 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 kedalam sistem dengan perintah:


# Unggah paket GISTools

library(GISTools)

Pastikan pengunggahan paket ini berhasil, jika tidak maka periksa kembali apakah paket GISTools sudah terinstall pada R. (Baca instalasi GISTools).

Berikutnya adalah unggah data kedalam sistem:


# Unggah data spasial Georgia
data("georgia")

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

variabel appling adalah nama County di State Georgia.

Langkah berikutnya adalah bekerja pada ruang grafik. Lakukan perintah-perintah berikut:


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

# Plot fitur yang telah dipilih dengan arsiran
polygon(appling, density=14, angle=45)

Hasil yang didapat adalah:

Project_01 Peta1

Hasil dari Project_01: Peta1

Untuk mencoba mengubah tampilan silakan ubah nilai parameter dari perintah plot dan polygon.

Script lengkap dari Project_01:peta1 adalah sebagai berikut:


# PROJECT-1: Mengambar Peta
# File: peta1.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 arsiran
polygon(appling, density=14, angle=45)

Jangan lupa, simpan sebagai peta1.R di direktori kerja.

Advertisements