在地图中自定放置spplot图例

Question

是否可以将spplot（spplot多边形）图例放置在地图的左下角，就像这样？

我能得到的最接近的是（我没有发布我的数据，我只是使用示例数据，所以在这种情况下，尝试将图例放在地图的左上角） ：

data(meuse.grid)
gridded(meuse.grid)=~x+y
spplot(meuse.grid[,'dist'],
    colorkey = list(space = "left", height = 0.5)
)

但是图例位于页面中间，并且是地图的外部。不幸的是，colorkey论证并不支持＆＃34; bottomleft＆＃34;或x，y或角点参数（参见?levelplot）。我也尝试使用key.space参数，但它似乎仅在绘制SpatialPoints*时有用，但似乎忽略SpatialPolygons*（或上面示例中的SpatialPixelsDataFrame）。

Answer 1

由于键是它自己的grob，因此完全可以从绘图对象中提取它并在任何地方单独绘制它。

library(grid)

#  Separate plot and key
s <- spplot(meuse.grid[,'dist'],
    colorkey = list(space = "left", height = 0.5)
)
key <- draw.colorkey(s$legend[[1]]$args$key)
s$legend <- NULL # Otherwise we'd get two keys

# Modify key
key$framevp$x <- unit(0.15, "npc")
key$framevp$y <- unit(0.68, "npc")

# Plot
s
grid.draw(key)

Answer 2

这里的复杂问题是，虽然是colorkey=参数 被视为与legend=参数非常相似，它并不完全支持 legend=所做的全套定位选项。虽然传说可以直接放在"left"，"right"，"top"，"bottom"和"inside"的情节，colorkey=只支持前四个那些。

一个相当干净的解决方法是提取一次调用spplot()准备的colorkey参数列表，并通过其spplot()参数将其传递给第二个legend=调用。 colorkey=“知道”如何准备一个colorkey对象，legend=知道如何在图中绘制任意对象，所以我们可以将两者结合起来得到我们想要的东西：

library(sp)
library(grid)
library(lattice)
data(meuse.grid)
gridded(meuse.grid)=~x+y

## Call spplot() once as a way to construct a list of arguments
## to draw.color.key
SP <- spplot(meuse.grid[,'dist'],
    colorkey = list(space = "left", height = 0.4)
)
args <- SP$legend$left$args$key

## Prepare list of arguments needed by `legend=` argument (as described in ?xyplot)
legendArgs <- list(fun = draw.colorkey,
                   args = list(key = args),
                   corner = c(0.05,.75))

## Call spplot() again, this time passing in to legend the arguments
## needed to print a color key
spplot(meuse.grid[,'dist'], colorkey = FALSE,
       legend = list(inside = legendArgs))

注意： colorkey=对“内部”选项缺乏支持似乎是 更少的设计选择，而不仅仅是包装作者尚未实现必要代码的问题。作为证据，请参阅colorkey=中?lattice::levelplot的文档（由？？sp :: spplot指向哪一个）：

colorkey: logical specifying whether a color key is to be drawn
          alongside the plot, or a list describing the color key. The
          list may contain the following components:

          ‘space’: location of the colorkey, can be one of ‘"left"’,
              ‘"right"’, ‘"top"’ and ‘"bottom"’.  Defaults to
              ‘"right"’.

          ‘x’, ‘y’: location, currently unused

          ‘corner’: Interacts with x, y; currently unimplemented