R语言迁徙地图REmap函数使用

R语言迁徙地图REmap函数使用

注册百度地图开放平台的账号，创建项目，复制AK到句柄options(remap.ak = “ZAIIlGEpPKoBVF5M4GLEuN6G5T6AQpCn”)，才可以访问数据，数据访问量有限额。

install.packages(“devtools”)
#devtools::install_github(“lchiffon/REmap”)

library(ggplot2)
library(ggmap)
library(REmap)
#载入加载包，依次安装各个包

get_geo_position(“北京”)
get_city_coord(“南昌”)
#p<-getBaiduMap("")
#ggmap§+geom_point(aes(x=116.41355,y=39.91101),size=3,color=“red”)
#??baidumap

####remap函数
#输入起始点和终点
options(remap.ak = “ZAIIlGEpPKoBVF5M4GLEuN6G5T6AQpCn”)
#百度API，需要在官网注册账号申请！
table<-data.frame(origin=c(“南通”,“合肥”),
destination=c(“合肥”,“南京”))
#输入相应的参数
table$tooltip = c(“cancle”,“save”)
table1<-table[,1:2]
#tooltip固定格式，显示事件

#####不含背景信息的地图
options(remap.ak = “ZAIIlGEpPKoBVF5M4GLEuN6G5T6AQpCn”)
remap(table1,title = “经过的城市”,subtitle = “出差调研”,
get_theme(theme = “Dark”,
lineColor = “Random”,
backgroundColor = “#1b1b1b”,
titleColor = “#fff”,
borderColor = “rgba(100,149,237,1)”,
regionColor = “#1b1b1b”,
labelShow = T,
pointShow = F,
pointColor = “gold”)
)
getwd()
#获得当前地址
setwd(“F:/学习文件/Rstudio/代码集”)
#设置存储地址
options(remap.js.web=T)

参考连接：
http://lbsyun.baidu.com/index.php?title=%E9%A6%96%E9%A1%B5
https://zhuanlan.zhihu.com/p/23247602
https://blog.csdn.net/Gage_0209/article/details/88075922?utm_medium=distribute.pc_relevant.none-task-blog-OPENSEARCH-1.channel_param&depth_1-utm_source=distribute.pc_relevant.none-task-blog-OPENSEARCH-1.channel_param