2

Plotting vector maps overlayed on a raster background in RやOverlay your raster layer on a background GM layer in R のように、ラスター レイヤーにベクター/ラスター マップをオーバーレイする方法の良い例があります。しかし、マージされたグラフィックには凡例がありません。例rproblvでは凡例がありますが、migmaplv + rproblvありません。

levelplot2 つまたは複数のオブジェクトを組み合わせて、spplot一方または両方の凡例を結果に保持する簡単な方法はありますか?

RのバックグラウンドGMレイヤーにラスターレイヤーをオーバーレイする

library(utils); library(colorRamps); library(rgdal);
library(raster); library(dismo); library(rasterVis)

download.file(
  "https://dl.dropboxusercontent.com/u/3180464/rprob520.tif", 
  "rprob520.tif", method = "curl")

rprob <- raster("rprob520.tif")
rprobGM <- projectRaster(from = rprob, crs = CRS("+init=epsg:3857"))

migmap <- gmap(x = rprob, type = "hybrid", zoom = 5)

migmaplv <- levelplot(
  migmap, maxpixels = ncell(migmap), 
  col.regions = migmap@legend@colortable, 
  at = 0:255, panel = panel.levelplot.raster, interpolate = TRUE, 
  colorkey = FALSE, margin = FALSE)

rproblv <- levelplot(
  rprobGM, margin = FALSE, contour = TRUE, 
  par.settings = rasterTheme(region = matlab.like(n = 10)), 
  alpha.regions = 0.35, at = (0:10)/10, 
  main = "p(dep > 1kg/m2 per eruption event)")

print(migmaplv + rproblv)

ここに画像の説明を入力

4

1 に答える 1

4

as.layer関数をunder = TRUE次のように使用します。

rproblv + as.layer(migmaplv, under = TRUE)
于 2015-04-08T17:05:06.287 に答える