Я хотел бы нарисовать карту мира и выделить отдельные страны и города. Страны и города представят места, где были получены данные исследования.
К сожалению, я смог сделать это. Я мог только выделить страны. Как я могу добавить города, как они показаны в пурпурном, и, в конечном итоге, названия городов или стран?
library(maptools)
data(wrld_simpl)
lat<-c(7,13.3,12,46,38,52.31)
lon<-c(6,16,105,2,23.7,13.23)
cities<-data.frame(lat,lon)
myCountries = wrld_simpl@data$NAME %in% c("Australia", "Germany", "Sweden", "Austria")
plot(wrld_simpl, col = c(gray(.90), "red")[myCountries+1])
![enter image description here](https://i.stack.imgur.com/YyBXJ.jpg)