2

是否可以将例如sp.points图层的键添加到由生成的颜色键中levelplot？

举个例子：

library(rasterVis)
library(latticeExtra)
library(sp)

r <- as.factor(raster(matrix(rbinom(100, 1, 0.5), 10)))
levels(r)[[1]] <- data.frame(ID=0:1, z=c('a', 'b'))
p <- SpatialPoints(matrix(runif(20), 10))

levelplot(r, margin=list(draw=FALSE), scales=list(draw=FALSE),
          col.regions=c('white', 'gray90')) +
  latticeExtra::layer(sp.points(p, pch=20, col=1))

在此处输入图像描述

我想在现有颜色键下方为点添加一个键条目。

levelplot一个笨拙的解决方案是按如下方式向调用添加一个键，调整xandy值直到它位于所需的位置，但是（1）找到正确的x和y值是一种痛苦，需要交互，（2）正确的填充不需要调整大小以适应键，并且 (3) 字体大小不会自动缩放以与颜色键一致。

k <- list(x = 1.02, y = 0.4, corner = c(0, 0), points=list(pch=20, col=1), 
          text=list('foo', cex=0.9))

levelplot(r, margin=list(draw=FALSE), scales=list(draw=FALSE),
          col.regions=c('white', 'gray90'), key=k) +
  latticeExtra::layer(sp.points(p, pch=20, col=1))

在此处输入图像描述

假设我需要坚持使用lattice图形，那么克服上面列出的问题的最佳方法是什么？

4

1 回答 1

1

虽然它不能解决您提出的所有问题，但也许该latticeExtra::mergedTrellisLegendGrob功能对您有用：

p1 <- levelplot(r, scales=list(draw=FALSE),
                col.regions=c('white', 'gray90'))

myPoints <- SpatialPoints(matrix(runif(20), 10))
p2 <- spplot(myPoints, pch=20)

## Merge graphics
p <- p1 + p2

## Merge legends
l1 <- p1$legend$right
l2 <- p2$legend$bottom
ll <- mergedTrellisLegendGrob(l1, l2)
p$legend$right$fun <- ll

p

合并传奇

于 2016-06-18T09:15:24.787 回答