R语言之数据可视化---酷炫可交互地图REmap

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)))

remap.png

结合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="常熟电影院分布")

remapfilm.png

可以点击demo后的url直观感受下效果，配合前面介绍的两个主要参数修改属性，可以做出许多酷炫的地图效果，地图的可视化基本就分享到这，接下来会分享其他方面的可视化内容！！！

再次感谢chiffon大大这些前辈们开发的强大的包，他的博客：http://langdawei.com/