我正在尝试使用inset_ggmap在第二个谷歌地图上铺设道路,但没有成功
m <- ggmap(dt_map_b) +
geom_polygon(data = map_data,
aes(fill = outcomes,
x = long,
y = lat.x,
group = group),
alpha = 0.5) +
inset_ggmap(dt_map_r)
一切正常,但是当我关闭terrain要素的可见性时,我发现它又回到了我的初始图像下面。
我知道可以更改地图with the google api的背景色,但是否可以更改ggmap的背景色?也许可以通过更改添加到URL的内容来实现?
发布于 2019-07-12 11:04:25
m <- leaflet(outcomes_map) %>%
addMapPane("base_map", zIndex = 410) %>% # Level 1: base
addMapPane("polygons", zIndex = 420) %>% # Level 2: polygons
addMapPane("waters", zIndex = 430) %>% # Level 3: waters
addMapPane("roads", zIndex = 440) %>% # Level 4: roads
addMapPane("labels", zIndex = 450) %>% # Level 5: labels
# adds in the base map
addTiles(urlTemplate = base_map,
options = pathOptions(pane = "base_map")) %>%
# adds in the polygons containing the loaded data
addPolygons(color = ~pal5(rank),
weight = 1,
fillOpacity = 1,
options = pathOptions(pane = "polygons")) %>%
# adds in the other layers for aesthetics like roads, water, and place labels
addTiles(urlTemplate = water_map,
options = pathOptions(pane = "waters")) %>%
addTiles(urlTemplate = road_map,
options = pathOptions(pane = "roads",
opacity = 0.75)) %>%
addTiles(urlTemplate = label_map,
options = pathOptions(pane = "labels")) %>%
setView(lng = -80.843297, lat = 35.225256, zoom = 11)
# you can export as either an interactive map or a static image
mapshot(m, url = file.path(graph_export_path,"alrighty.html"))
mapshot(m, file = file.path(graph_export_path,"alrighty.png"))
事实证明,只需使用leaflet和mapshot()就可以更容易地实现这一点。你真正需要做的就是为你感兴趣的功能创建几个不同的层,然后创建窗格来按你想要的顺序组织它们。您需要设置一个mapbox帐户,并使用api引入地图,但在R文档的宣传单中,这非常简单。这样你就可以更好地定制地图的外观了!
https://stackoverflow.com/questions/54916403
复制相似问题