REmap包的github链接地址：https://github.com/Lchiffon/REmap
一.安装方式：
library(devtools)
install_github('lchiffon/REmap')
若安装不成功，可见作者关于安装的文章
二.使用方法：
先来看个酷炫的内置demo：（直观感受：http://xwj.565tech.com/jianshu/remap/remapdemo.html ）
remap(demoC)
ECharts.png
REmap包使用相对简单在这简单提下重要的两个参数:
1.MarkLine:
- markLineData 标线使用的数据,第一列为出发地,第二列为目的地
- markLineTheme 控制标线颜色,形状等,由markLineControl来控制
- geoData 标中各个点的经纬度坐标,如果没有,会使用BaiduAPI自动查找
markLineControl(symbolSize = c(2,4),
smoothness = 0.2,
effect = T,
lineWidth = 1,
lineType = 'solid',
color = "Random")
- SymbolSize:形状的大小,标线默认是一段无形状,一段箭头,如果不想要箭头可以使用symbolSize = c(0,0)
- smoothness:曲线的弯曲度,取0标线会退化为直线
- effect:炫光特效,标线较多的时候建议关闭
- lineWidth:标线的宽度
- lineType:标线的样式: ’solid’实线’dotted’点线或者 ’dashed’虚线
- color:颜色,默认为随机颜色,设置一个颜色会取为固定颜色此外对markLineData下设置color变量会覆盖该颜色
2.MarkPoint：
- markPointData 标点使用的数据,可以是一个向量,如果是数据框就仅使用第一列.
- markPointTheme 控制标点颜色,形状等,由markPointControl来控制
- geoData 标中各个点的经纬度坐标,如果没有,会使用BaiduAPI自动查找
markPointControl(symbol = 'emptyCircle',
symbolSize = "Random",
effect = T,
effectType = 'scale',
color = "Random")
symbol:‘circle’,‘emptyCircle’,圆,空心圆
‘rectangle’,‘emptyRectangle’,方块,空心方块
‘triangle’,‘emptyTriangle’,三角,空心三角
‘diamond’,‘emptyDiamond’,钻石,空心钻石
‘heart’心形,’droplet’,水滴
‘pin’,POI标注,’arrow’箭头, ’star’五角星
或者使用’image://http://….’来引用一个图片
此外对markLineData下设置symbol变量会覆盖该颜色symbolSize:标点的大小
effect:炫光特效,标线较多的时候建议关闭
effectType:炫光特效的方式,’scale’放大,或者’bounce’跳动
color:颜色,默认为随机颜色,设置一个颜色会取为固定颜色
此外对markLineData下设置color变量会覆盖该颜色
具体demo：
1.动态可交互线路图:(demo实例：http://xwj.565tech.com/jianshu/remap/route.html )
library(baidumap)
df<-getRoute('常州','常熟')
df$label<-paste("Point",1:dim(df)[1])
Linedata<-data.frame(origin=df$label[-dim(df)[1]],destination=df$label[-1])
head(Linedata)
remapB(center = get_city_coord("常州"),
zoom = 13,
markLineData = Linedata,geoData = df,
markLineTheme = markLineControl(smoothness = 0,
symbol = 'circle',
effect = T,
symbolSize = c(2,4)))
结合baidumap包找到经纬度，将每一个小段位置拼成数据框，就可以做许多个性化的动态交互地图！！！
2.动态影院标注（直观感受：http://xwj.565tech.com/jianshu/remap/film2.html ）
film<-getPlace('电影院','常熟')
film$tooltip=paste(film$name,film$address,film$telephone,sep = '<br/>')
geo_data<-data.frame(film$lon,film$lat,film$name)
remapB(center = get_city_coord("常熟"),
zoom = 15,
markPointData = film,
geoData = geo_data,
markPointTheme = markPointControl(effect = T,symbol = "circle",
effectType = 'scale',
symbolSize = 7,
color="blue"),
title="常熟电影院分布")
可以点击demo后的url直观感受下效果，配合前面介绍的两个主要参数修改属性，可以做出许多酷炫的地图效果，地图的可视化基本就分享到这，接下来会分享其他方面的可视化内容！！！
再次感谢chiffon大大这些前辈们开发的强大的包，他的博客：http://langdawei.com/
