Setelah belajar sebentar bagaimana membuat bagan dari objek raster, saya mendapatkan hampir semua yang saya butuhkan kecuali menambahkan judul pada legenda spplot.
Apa yang saya coba:
- untuk digunakan
mtext("XXX (m)", side=4)
, - untuk menambahkan di
sp.text
luar kotak, - untuk digunakan
legend.args = list(title="XXX (m)")
.
Gambar di bawah ini menunjukkan dengan tepat, fitur yang saya tambahkan secara manual ke plot saya, dan di mana saya ingin memasukkan menggunakan R.
Berikut adalah satu contoh, dari apa yang saya dapatkan sejauh ini:
require(raster)
require(sp)
require(lattice)
north <- list("SpatialPolygonsRescale", layout.north.arrow(type=1), offset = c(0.95,0.85), scale=0.1)
scale <- list("SpatialPolygonsRescale", layout.scale.bar(),
offset = c(0.55, 0.03), scale = 0.4, fill = c("transparent","black"))
txt1 <- list("sp.text", c(0.55, 0.08), "0")
txt2 <- list("sp.text", c(0.75, 0.08), "0.2")
txt3 <- list("sp.text", c(0.95, 0.08), "0.4")
raster_layout <- list(north,scale,txt1,txt2,txt3)
cuts <- c(110,120,130,140,150,160,170,180,190,200)
spplot(raster(volcano), scales = list(draw=T), at=cuts, col.regions = palette(gray(seq(0,0.9,len=9))), sp.layout= raster_layout, add=T)
Terima kasih atas bantuan Anda.