spplot 图例在地图中的自定义放置

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

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

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

但图例位于页面中间，并且是outside地图的。很遗憾，colorkey参数不支持“左下角”或 x、y 或角参数（请参阅?levelplot）。我也尝试使用key.space争论，但它似乎只在绘图时有效SpatialPoints*但似乎被忽略了SpatialPolygons*（或像上面的示例中那样的 SpatialPixelsDataFrame ）。

由于密钥是它自己的一个对象，因此完全可以从绘图对象中提取它并在您喜欢的地方单独绘制它。

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)