带有突出显示的国家和选定城市的简单世界地图
Simple world map with highlighted countries and selected cities
我想绘制一张世界地图并突出显示选定的国家和城市。这些国家和城市将展示获得研究数据的地点。
不幸的是，我能够做到这一点。我只能强调国家。我如何添加以洋红色显示的城市，以及最终城市或国家/地区的名称？
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])
从这里开始最简单的方法是：
cities <- coordinates(cities)
plot(wrld_simpl, col = c(gray(.90), "red")[myCountries+1])
points(cities, col = "purple", lwd = 7)
但是，如果您需要随时修改地图（例如 reproject/transform 点），您可能需要考虑使用矢量几何和 sf/rgdal : https://r-spatial.github.io/sf/
我想绘制一张世界地图并突出显示选定的国家和城市。这些国家和城市将展示获得研究数据的地点。 不幸的是，我能够做到这一点。我只能强调国家。我如何添加以洋红色显示的城市，以及最终城市或国家/地区的名称？
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])
从这里开始最简单的方法是：
cities <- coordinates(cities)
plot(wrld_simpl, col = c(gray(.90), "red")[myCountries+1])
points(cities, col = "purple", lwd = 7)
但是，如果您需要随时修改地图（例如 reproject/transform 点），您可能需要考虑使用矢量几何和 sf/rgdal : https://r-spatial.github.io/sf/