Названия стран на участке с rworldmap

Question

Доброе утро, я потратил много времени, чтобы понять, как я могу добавить названия стран непосредственно на сюжет, не как часть легенды, а как часть карты. Я использую пакет 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")

Answer 1

Ты можешь попробовать:

# 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))

пропустив эти строки после вашего кода, вы получите: