R 我可以更改ggplot2中的背景地图吗?

R 我可以更改ggplot2中的背景地图吗?,r,plot,ggplot2,R,Plot,Ggplot2,我刚刚在R中玩过ggplot2,语法如下 geom_map(data=world, map=world aes(x=long, y=lat, map_id=region), color="white", fill="#7f7f7f", size=0.05, alpha=1/4) 这给了我世界地图,有可能只得到英国地图作为背景地图吗? 非常感谢 Peddie库ggmap与ggplot2配合得非常好 你可以试试这个: library(ggmap) #Google API register_goo

我刚刚在R中玩过ggplot2,语法如下

geom_map(data=world, map=world
aes(x=long, y=lat, map_id=region),
color="white", fill="#7f7f7f", size=0.05, alpha=1/4)
这给了我世界地图,有可能只得到英国地图作为背景地图吗? 非常感谢
Peddie

ggmap
与ggplot2配合得非常好

你可以试试这个:

library(ggmap)

#Google API
register_google(key = "your_api_key")

map <- get_map(location = 'UK', zoom = 6)
ggmap(map)
库(ggmap)
#谷歌API
注册谷歌(key=“你的api\u key”)
地图

也请查看


结果应等于@eipi10中的结果

您还可以执行以下操作:

library(ggplot2)
library(ggthemes)
library(raster)
library(rgeos)

gbr <- getData("GADM", country="GBR", level=0)
gbr <- gSimplify(gbr, 0.01)

gbr_map <- fortify(gbr)

gg <- ggplot()
gg <- gg + geom_map(map=gbr_map, data=gbr_map,
                    aes(x=long, y=lat, map_id=id),
                    fill="#7f7f7f")
gg <- gg + coord_map()
gg <- gg + theme_map()
gg
库(ggplot2)
图书馆(主题)
图书馆(光栅)
图书馆(rgeos)

gbr语法看起来有缺陷。缺少逗号或括号。编辑问题。对不起,我只复制并粘贴了部分脚本。我希望得到关于数据和地图的建议,我看到了很多样本,比如数据=世界,地图=世界,我可以用特定的国家(例如英国)来代替世界吗?我确实尝试过英国,但这会引发错误。您是否尝试过在
map\u UK%filter(region=='UK')
中对数据进行子集设置?太棒了!请再说一件事-是否有可能在特定区域(如英格兰东南部)实际使用英国地图缩放或按定义的纬度/长度进行缩放?很多人都在改变
coord\u map()
呼叫
gg哇,这真的很有效你真是个天才!最后一个问题-如何计算xlim,ylim?通过查看带有标记分划的地图(即带有#的纬度/经线),ggmap现在(2020年夏季)实际上已经失效。@gregmacfarlane,失效是什么意思?我的代码仍然有效。你只需要有一个谷歌API,并在我之前运行这行
注册谷歌(key=“your\u API\u key”)
。所以我不明白否决票。我想这是哲学上的;在开放研究中使用谷歌地图作为背景层是一个棘手的哲学问题,OpenStreetMap功能已经被取消。我可能建议进行编辑,以指定现在需要GoogleAPI。
library(ggplot2)    
ggplot() + 
  borders(reg="UK", color="white", fill="#7f7f7f", alpha=1/4)
library(ggplot2)
library(ggthemes)
library(raster)
library(rgeos)

gbr <- getData("GADM", country="GBR", level=0)
gbr <- gSimplify(gbr, 0.01)

gbr_map <- fortify(gbr)

gg <- ggplot()
gg <- gg + geom_map(map=gbr_map, data=gbr_map,
                    aes(x=long, y=lat, map_id=id),
                    fill="#7f7f7f")
gg <- gg + coord_map()
gg <- gg + theme_map()
gg