从 OpenStreetMap 地图中删除道路

Question

是否可以在 OpenStreetMap 中不显示道路？例如，使用此代码（参见）：

library(maps)
library(OpenStreetMap)
mp <- openmap(c(33,-95), c(43,-73),zoom=8,'stamen-watercolor')
states_map <- map_data("state") %>% filter(lat > 33 & lat < 43 & long > -95 & long < -73)
states_map_merc <- as.data.frame(projectMercator(states_map$lat,states_map$long))
states_map_merc$group <- states_map$group
counties_map <- map_data("county") %>% filter(lat > 33 & lat < 43 & long > -95 & long < -73)
counties_map_merc <- as.data.frame(projectMercator(counties_map$lat,counties_map$long))
counties_map_merc$group <- counties_map$group
OpenStreetMap::autoplot.OpenStreetMap(mp,expand=FALSE) + 
    geom_polygon(data=states_map_merc, aes(x=x,y=y,group=group), fill="black",colour="white",alpha=0, size=.7) + 
    geom_polygon(data=counties_map_merc, aes(x=x,y=y,group=group), fill="black",colour="white",alpha=0, size=.2)

...是否可以在不修改缩放级别的同时去掉地图上的道路？

Answer 1

不，这似乎不可能，因为它是您选择的地图类型的一项功能 (stamen-watercolor)。

如果您不想显示道路，则需要选择其他地图类型，例如：

mp <- openmap(c(33,-95), c(43,-73), zoom=8, type = 'bing')

这里有 some examples 种不同的地图类型，可能对您有所帮助。

从 OpenStreetMap 地图中删除道路

Remove roads from OpenStreeMap map

dictionary

r

openstreetmap

ggplot2