今天再来谈谈REmap包

作者：王亨 ，R语言中文社区专栏作者，跟着菜鸟一起一步步学习R语言，争做R语言高手。

个人公众号：跟着菜鸟一起学R语言（微信ID：learn_R） 

之前我写过一篇关于REmap的文章，但有许多网友都存在不同的问题，在微信公众号后台或博客留言，向我请教一些问题。于是我就觉得很有必要再写一篇文章，好好的把REmap这个包好好的给大家介绍一下。

我们都应该知道这个包的主要目的可交互的地图数据可视化的工具，托管在github，现在. 这个包是基于Echarts开发的一个包，它本身提供的参数也比较少，也就是说你想绘制更有个性更有特点跟符合自己需求的图像的话，那你就很有必要去学习了解Echarts方面的知识。

1

迁移图

比如说放假了我准备出去玩玩。我先从西安出发，到上海看看东方明珠，再到重庆尝一尝火锅，在成都逛逛宽窄巷子，最后再返回西安吃碗羊肉泡馍。这个行程图就可以用这个包来做。

origin<-c("xi an","shang hai","chong qing","cheng du") destination<-c("shang hai","chong qing","cheng du","xi an") #将上面这两列数据存储在一个数据框里面 dat = data.frame(origin,destination) out = remap(dat,title = "REmap",subtitle = "theme:Dark") plot(out)

结果如下：

我们查看一下dat的数据类型如下：

不过这个包有一个很严重的问题，就是你输入中文的时候，它有时候无法识别，不过幸好当你输入地名的时候可以使用拼音，也不区分大小写，比如输入西安的时候，你可以输入”xi an”也可以写成”xi an shi’。

如果你出现下面这些错误提示，那就要检查你的地方名写的是不是汉字了。

Warning message: In get_geo_position(city_vec) :  北京 not found.上海 not found.重庆 not found.
成都 not found

Warning message: In get_geo_position(city_vec) : ±±¾© not found.

2

颜色等级图

我还用这几个地方来举个例子吧。

city<-c("上海","重庆","四川","陕西") value<-c(3734,3248,2361,2105) Cdata<-data.frame(city,value) remapC(Cdata,maptype = "China",color = 'skyblue')

结果如下图：

数据格式如下：（声明数据是随便写的）

如果说我们既想在颜色等级图上面添加迁移图特点的话，那我们就要用到markLineData和markPointData这两个参数，它们默认为NULL。如下例所示：

添加气泡：

remapC(Cdata,maptype = "China",color = 'skyblue',
      markPointData=dat)

添加箭头：

remapC(Cdata,maptype = "China",color = 'skyblue',
      markLineData=dat)

如果说既要 有箭头，又要 气泡，那就把这两个参数都加进来。

remapC(Cdata,maptype = "China",color = 'skyblue',
      markLineData=dat,markPointData=dat)

3

热力图

现在我们还是来继续绘制这四个地方的热力图，当然热度数据还是自己随便写的。

city<-c("xi an","shang hai","chong qing","cheng du") heat<-c(0.9,0.6,0.8,0.7) temp <- get_geo_position(as.vector(city)) #获取坐标 heatdata<-data.frame(temp$lon,temp$lat,heat)

这部分通过get_geo_position()函数获取了坐标，再转化为一个有三列的数据框，分别为经纬度和热度。数据格式如下：

现在就来绘制一张热力图！

remapH(heatdata,minAlpha = 0.51,
      title = "Heat Map from REmap")

号外：

5月23日张丹老师在Hellobi Live直播授课，只要19.99喔。数据老手教你如何用R语言开始量化投资

参加方式：扫码参团 | 阅读原文