将地区名称写在地块上

Question

我正在尝试绘制乌克兰地区的强度图，强度取决于“值”。这是我的代码：

library(sp)
con <- url("http://biogeo.ucdavis.edu/data/gadm2/R/UKR_adm1.RData")
print(load(con))
close(con)
name<-VARNAME_1
gadm$VARNAME_1
value<-c(1:27)
gadm$VARNAME_1<-as.factor(value)
col<- colorRampPalette(c('white', 'black'))(256) 
spplot(gadm, "VARNAME_1", main="Ukraine", scales = list(draw = TRUE), col.regions=col)

我的问题是：是否可以将区域名称放在绘图上（我将其作为name代码中的字符向量放置到地图上的适当位置。或者也许另一个建议可以使地图更清晰和易于理解）有相应的价值，谢谢！

Answer 1

一种可能性是用颜色来做到这一点：

colors=rainbow(length(gadm$NAME_1))
plot(gadm,col=colors)
legend("topleft",legend=gadm$NAME_1,fill=colors,cex=1.3,bty="n" )

或者您使用以下命令添加名称text：

colors=rainbow(length(gadm$NAME_1))
plot(gadm,col=colors)
text(coordinates(gadm), labels = gadm$NAME_1)