ggmap:从 Google 的地形图中删除国家名称
ggmap: removing country names from Google's terrain map
我正在尝试使用 ggmap 在地图上绘制点,但我不知道如何从地图背景中删除国家名称
library(ggmap)
library(mapproj)
map <- get_map(location = 'place', zoom = 4)
read.table("latlon.txt", header = TRUE) -> tbl
plot<-ggmap(map) + geom_point(aes(x = lon, y = lat), color=tbl$color, size=3, data = tbl) + theme(legend.position = "none")+
#geom_text(aes(label=pop),data=tbl,hjust=0, vjust=0)
ggsave(plot=plot,height=7.5,width=11, filename="map.pdf", useDingbats=FALSE)
plot(plot)
我想在我的观点上启用标签,但背景文本基本上妨碍了我的工作。有谁知道如何保留 Google 地形图但删除国家/地区名称?谢谢!
也许这个问题与提问者无关,但我运行今天遇到了同样的问题,搜索了一下发现 where the questioner has a similar problem and someone gave a very useful answer with the hint to the style syntax of Google Static Maps API。
因此,当您使用 get_googlemap
而不是包装器 get_map
时,您可以放置一个额外的 style
参数,例如:
map <- get_googlemap(center = 'middle east', zoom = 4,
style = 'feature:administrative.country|element:labels|visibility:off')
plot <- ggmap(map)
print(plot)
还有更多功能和元素,您可以删除或更改它们,但只需使用上面的代码即可删除国家/地区标签。
请试试这个:
map <- get_googlemap(center ="middle east", zoom = 4,
style=c(feature="administrative.country",element="labels",visibility="off"))
plot <- ggmap(map)
print(plot)
我正在尝试使用 ggmap 在地图上绘制点,但我不知道如何从地图背景中删除国家名称
library(ggmap)
library(mapproj)
map <- get_map(location = 'place', zoom = 4)
read.table("latlon.txt", header = TRUE) -> tbl
plot<-ggmap(map) + geom_point(aes(x = lon, y = lat), color=tbl$color, size=3, data = tbl) + theme(legend.position = "none")+
#geom_text(aes(label=pop),data=tbl,hjust=0, vjust=0)
ggsave(plot=plot,height=7.5,width=11, filename="map.pdf", useDingbats=FALSE)
plot(plot)
我想在我的观点上启用标签,但背景文本基本上妨碍了我的工作。有谁知道如何保留 Google 地形图但删除国家/地区名称?谢谢!
也许这个问题与提问者无关,但我运行今天遇到了同样的问题,搜索了一下发现
因此,当您使用 get_googlemap
而不是包装器 get_map
时,您可以放置一个额外的 style
参数,例如:
map <- get_googlemap(center = 'middle east', zoom = 4,
style = 'feature:administrative.country|element:labels|visibility:off')
plot <- ggmap(map)
print(plot)
还有更多功能和元素,您可以删除或更改它们,但只需使用上面的代码即可删除国家/地区标签。
请试试这个:
map <- get_googlemap(center ="middle east", zoom = 4,
style=c(feature="administrative.country",element="labels",visibility="off"))
plot <- ggmap(map)
print(plot)