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

假如今年五一你要约你的女（男）朋友要去旅游，想从广州出发去上海，然后从上海去一趟南京，再从南京去一趟北京看天安门，看完天安门之后就回广州，这个时候你想显得自己很有水平，于是乎你想画个径图给她（他）。

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学习笔记