4

早上好，我花了很多时间来弄清楚如何直接在情节上添加一个国家名称，而不是像传说的一部分，而是像地图的一部分。我正在使用包 rworldmap，尝试使用identifyCountries ()- 但它用于交互（当用户点击地图时），而不是我找到了一个这样的解决方案 行政区域地图与 ggmap 和 ggplot2 的国家，但它适用于 ggplot2，而且太复杂了。我试图用mapCountryData(). 希望得到您的帮助，谢谢。 

data <- data.frame(Country=c('Russia','Cyprus', 'Belize', 'Austria' ,'Virgin Islands', 
        'Italy','United States' ,'United Kingdom', 'Germany', 'France' ,'Poland' ,'Switzerland'),
Value=c(-0.310,-0.206,-0.300,-0.179,-0.196,-0.174,-0.105,-0.142,-0.082,-0.097,-0.027,0.052))

    library('rworldmap')

    pdf1 <- joinCountryData2Map(data, joinCode="NAME", nameJoinColumn="Country")

    mapCountryData(pdf1, nameColumnToPlot="Value", catMethod="pretty", 
    colourPalette='white2Black',addLegend='TRUE',mapTitle=NULL, mapRegion="Europe")
4

1 回答 1

7

你可以试试：

# get the coordinates for each country
country_coord<-data.frame(coordinates(pdf1),stringsAsFactors=F)
# label the countries
text(x=country_coord$X1,y=country_coord$X2,labels=row.names(country_coord))

在你的代码之后传递这些行，你会得到：

在此处输入图像描述

于 2015-02-12T07:55:58.143 回答