帶有突出顯示的國家和選定城市的簡單世界地圖

Question

我想繪制一張世界地圖並突出顯示選定的國家和城市。 國家和城市將展示獲得研究數據的地點。 不幸的是，我能夠做到這一點。 我只能強調國家。 我如何添加洋紅色顯示的城市，最終添加城市或國家的名稱？

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

Answer 1

最簡單的方法是：

cities <- coordinates(cities)

plot(wrld_simpl, col = c(gray(.90), "red")[myCountries+1])
points(cities, col = "purple", lwd = 7)

但是，如果您需要在任何時候修改地圖（例如重新投影/轉換點），您可能需要考慮使用矢量幾何和sf / rgdal ： https : rgdal