r - 绘图 : put labels on the map

Question

我寻求有关如何更改所附 map 上 sp.text 标签的字体大小和字体颜色的帮助，以避免标签重叠并提高可读性。

map 制作如下。如果需要，可以下载 SpatialPolygonsDataframe 对象“mymap”here .

trellis.par.set() 没有解决我的问题。难道是我使用不当？

    library(sp)
    library(latticeExtra)

    # Create list object for sp.layout (Got these functions here on stackoverflow, thank you owner)
    sp.label <- function(x, label) {list("sp.text", coordinates(x), label)}
    NUMB.sp.label <- function(x) {sp.label(x, as.vector(x@data$NUMB))}
    make.NUMB.sp.label <- function(x) {do.call("list", NUMB.sp.label(x))}


    # Spplot
    tps <- list(fontsize=list(text=5), fontcolor=list(text="green"))
    trellis.par.set(tps)

    spplot(mymap, "indic", 
                    col.regions=c("#D3D3D3","#A9A9A9"),
                    sp.layout = make.NUMB.sp.label(mymap), 
                    cex = 0.5,
                    bg = "white", col="light grey", border="light grey")

Answer 1

找到解决方案:需要在列表中添加cex、col参数:

 list("sp.text", coordinates(x), label, cex=0.5, col="green")