我希望在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功能。 如何在图上获取标签?
text()
使用前者,而lattice使用后者。您可以使用等效的ltext()
来配合lattice使用,或者使用panel.text()
,但我怀疑您需要编写一个面板函数才能使用它;我认为您不能像使用基础图形那样轻松地在网格图上绘制。 - Gavin Simpson