r - spplot() 上的国家/地区标签

我想为 spplot() 上的区域添加名称标签。

例子:

load(url('http://gadm.org/data/rda/FRA_adm0.RData'))
FR <- gadm
FR <- spChFIDs(FR, paste("FR", rownames(FR), sep = "_"))
load(url('http://gadm.org/data/rda/CHE_adm0.RData'))
SW <- gadm
SW <- spChFIDs(SW, paste("SW", rownames(SW), sep = "_"))
load(url('http://gadm.org/data/rda/DEU_adm0.RData'))
GE <- gadm
GE <- spChFIDs(GE, paste("GE", rownames(GE), sep = "_"))

df <- rbind(FR, SW, GE)

## working
plot(df)
text(getSpPPolygonsLabptSlots(df), labels = c("FR", "SW", "GE"))


## not working
spplot(df[1-2,])
text((getSpPPolygonsLabptSlots(df), labels = c("FR", "SW"))

由于格子，第二个可能不起作用!？
但是，我需要 spplot 功能。
我将如何获得情节上的标签？

最佳答案

添加一些文本的标准方法是使用lattice的函数ltext，但给出的坐标总是绝对的。从本质上讲，添加文本后您无法真正重新调整图形。例如:

data(meuse.grid)
gridded(meuse.grid)=~x+y
meuse.grid$g = factor(sample(letters[1:5], 3103, replace=TRUE),levels=letters[1:10])
meuse.grid$f = factor(sample(letters[6:10], 3103, replace=TRUE),levels=letters[1:10])

spplot(meuse.grid, c("f","g"))
ltext(100,200,"Horror")

产生这些数字(缩放前后)



您可以使用自定义面板功能，使用每个面板内的坐标:

myPanel <- function(x,y,xx,yy,labels,...){
    panel.xyplot(x,y,...)
    ltext(xx,yy,labels)
}

xyplot(1:10 ~ 1:10,data=quakes,panel=myPanel,
        xx=(1:5),yy=(1:5)+0.5,labels=letters[1:5])

(自己运行它看看它的样子)

你也可以在 spplot 函数中使用这个技巧，尽管你真的必须检查你使用的任何绘图函数。在 spplot 的帮助文件中，您可以找到可能的选项(多边形图、网格图和点图)，因此您必须检查它们中的任何一个是否正在执行您想要的操作。继续上面的网格图，这变成:

myPanel <- function(x,y,z,subscripts,xx,yy,labels,...){
    panel.gridplot(x,y,z,subscripts,...)
    ltext(xx,yy,labels)
}
# I just chose some coordinates
spplot(meuse.grid, c("f","g"),panel=myPanel,xx=180000,yy=331000,label="Hooray")

这给出了一个可重新缩放的结果，其中文本被添加到每个面板中:

关于r - spplot() 上的国家/地区标签，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5136462/