问题描述
我有下面给出的代码,它使用 ggmap 库使用谷歌绘制了 4km x 4km 的地图。
googleTerrainView <- function(use_data){
tibble(lng=use_data$longitude,lat=use_data$latitude) -> map1
get_googlemap(center = c(lon = map1$lng,lat = map1$lat),zoom = 14,maptype = "terrain") %>%
ggmap() +
geom_point(data = map1,aes(lng,lat),size = 8,#shape = 4,shape= 23,fill="red",color="black") -> plot1 ->> plot1_super
xmin<-layer_scales(plot1)$x$range$range[[1]]
xmax <- layer_scales(plot1)$x$range$range[[2]]
ymin <- layer_scales(plot1)$y$range$range[[1]]
ymax <- layer_scales(plot1)$y$range$range[[2]]
xmin ->> xmin_super
xmax ->> xmax_super
ymin ->> ymin_super
ymax ->> ymax_super
plot1+
theme_void() +
ggsn::scalebar(x.min = xmin+0.0007,x.max = xmax,y.min = ymin,y.max = ymax-0.002,transform = TRUE,dist_unit = "km",height = 0.02,location = "topleft",dist = 1,model = 'wgs84')
}
googleSatelliteView <- function(use_data){
tibble(lng=use_data$longitude,maptype = "satellite") %>%
ggmap() +
geom_point(data = map1,color="black") -> plot1
xmin<-layer_scales(plot1)$x$range$range[[1]]
xmax <- layer_scales(plot1)$x$range$range[[2]]
ymin <- layer_scales(plot1)$y$range$range[[1]]
ymax <- layer_scales(plot1)$y$range$range[[2]]
plot1+
theme_void() +
ggsn::scalebar(x.min = xmin+0.00075,model = 'wgs84',st.color = "white")
}
现在我的问题是我们如何使用相同的代码来绘制覆盖 200 公里 X 200 公里区域的卫星和地形图。可以更改的参数(据我所知)是 ggmap 和 ggsn :: scalebar 的 Zoom。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)