Rworldmap中国家名称的移动位置

Question

有没有办法在用rworldmap生成的地图上移动国家名称的位置？例如，在下面的例子中，我想移出中美洲国家的名字，使它们更容易阅读。

如果不是，我会欢迎关于地图标签的替代方法的建议。谢谢。

library(rworldmap)  
df <- NULL  
df$country <- c("El Salvador","Mexico","Panama", "Nicaragua", "Costa Rica",       "Cuba", "Honduras", "Guatemala", "Venezuela")  
df$code<-c("SLV", "MEX", "PAN", "NIC", "CRI", "CUB", "HON", "GTM", "VEN")  
df$number<-c(100, 500, 200, 150, 300, 390, 140, 330, 60)  
df<-as.data.frame(df)  
sPDF <- joinCountryData2Map( df, joinCode = "ISO3", nameJoinColumn = "code") 
mapCountryData(sPDF, nameColumnToPlot="number") 
sPDFmyCountries <- sPDF[sPDF$NAME %in% df$country,] 
mapCountryData(sPDFmyCountries, nameColumnToPlot="number", catMethod="fixedWidth", colourPalette="heat", borderCol="black",  mapTitle = ("Made Up Number"))
text(sPDFmyCountries, labels="NAME")

Answer 1

您只需在空间或标准数据中创建一个偏移量列，然后应用is作为文本标签位置的参数。(我的问题与上面的评论相同，所以我只是将spdf转换为一个常规的df)：

mapCountryData(sPDFmyCountries, nameColumnToPlot="number", catMethod="fixedWidth", colourPalette="heat", borderCol="black",  mapTitle = ("Made Up Number"))
df2=as.data.frame(sPDFmyCountries)
df2$latOffset=4 #4 degree offset
df2$lonOffset=4
text(df2$LON+df2$latOffset, df2$LAT+df2$lonOffset, labels=df2$country)

考虑到你们国家的地图安排，我不知道你们是否会找到一种解决方案，能自动地消除重叠的文本框，不会使名字离一些较小的国家太远，所以我想你可能会想要根据你的喜好调整个别的偏移列.

如果您确实想找到一种自动去除标签的方法，那么这里似乎有一些资源：https://stats.stackexchange.com/questions/16057/how-do-i-avoid-overlapping-labels-in-an-r-plot。