最近看到一种地图很有意思,于是我就学了起来。

假如今年五一你要约你的女(男)朋友要去旅游,想从广州出发去上海,然后从上海去一趟南京,再从南京去一趟北京看天安门,看完天安门之后就回广州,这个时候你想显得自己很有水平,于是乎你想画个径图给她(他)。
1.安装并加载包:
install.packages("devtools")
library(devtools)install_github('lchiffon/REmap')
install_github('badbye/baidumap')
library(REmap)library(baidumap)
2.生成出发点和终点:
origin=c("guang zhou","shang hai","nan jing","bei jing")
destination=c("shang hai","nan jing","bei jing","guang zhou")
dat =data.frame(origin,destination)#将上面这两列数据存储在一个数据框里面
3.查看数据:
View(dat)

4.绘制:
remap(dat,title ="Travel",subtitle ="Me and my boyfriend(girlfriend)")
5.结果:

当然了,如果你想把背景颜色换成白色也是可以的,只需在上面的代码加上“theme = get_theme("Bright")”即可,代码如下:
remap(dat,title ="Travel",subtitle ="Me and my boyfriend(girlfriend)",theme = get_theme("Bright"))
结果如下:

无法运行出正确图形的解决方法:
1.加载baidumap包时出现如下语句,如下图(如果你没遇到请忽略):

这时你就要去授权百度地图秘钥,具体申请步骤请参考以下链接:
https://blog.csdn.net/qq_36328765/article/details/84777186
申请好了之后会有一个如下图的访问应用(AK)

在R里运行options(baidumap.key = '你的AK ')即可。
2.运行绘图代码时出错,如下图(如果你没遇到请忽略):

在代码remap(dat,title = "Travel",subtitle = "Me and my boyfriend(girlfriend)")前运行options(remap.ak = "你的AK ")即可。
好了今天的学习到这,关于高颜值地图下期还有精彩内容更新哦,敬请期待。希望大家多多关注转发。
欢迎大家关注我weixingongzhonghao
R语言与SPSS学习笔记
网友评论