可视化篇：R可视化--迁徙/通勤图

最新推荐文章于 2024-08-13 07:17:34 发布

杨铖

最新推荐文章于 2024-08-13 07:17:34 发布

阅读量2.2w

点赞数 16

分类专栏：可视化文章标签：可视化 R 迁徙通勤

本文链接：https://blog.csdn.net/yc_1993/article/details/51407981

版权

本文介绍了如何使用R语言结合ggplot2和REmap包来创建迁徙、通勤等可视化图表。通过模拟数据，展示了2016年广州春运人口迁徙、日常通勤和购物人群分布等场景的图表制作过程，强调了R在数据可视化中的应用，包括对图表背景的自定义修改以满足特定展示需求。

摘要由CSDN通过智能技术生成

写在最前
下面是《可视化篇：效果图》中第1、4、5、6、7张的实现说明

使用工具为R语言

工作后经常要做一些比较贴合用户级别的可视化，R的ggplot2在做一些学术或者理论研究上的可视化时，效果是非常好，基本上能想到的图ggplot都能画出（不要纠结双坐标和3D）
在作静态图时，ggplot2+AI可以展现出印刷级别的效果，具体可以查看：http://theinformationcapital.com/ 这里要感谢数据人网一位朋友，是他介绍的这本书。
在作动态图或者可交互的图表时，R+js是一个高阶的展示路径，下文展示的图表，都是R调用echart的API，用js画的，当然在使用的过程中我修改了部分源码，因为公司展示效果的需要。
下面图表我会把制作过程以及图背后的业务背景一一说一下，代码及数据均会附上。

以下数据均为模拟数据，并非真实数据
图1数据：http://pan.baidu.com/s/1nvb92y9
图2数据：http://pan.baidu.com/s/1c1H8V7a
图3,4数据：http://pan.baidu.com/s/1eRCfmMI 该部分数据是用R代码模拟，复制可运行。

开始前先安装一下REmap包，由于该包没有挂靠在cran上，所以要从GitHub 上下载：

library(devtools)
install_github("Lchiffon/REmap")

devtools包可按照正常方法下载，如果提示没有安装digest包，则再下载digest包即可。

一、2016年的广州春运

下图展示的是2016年2月6日广州人口迁往省外的情况，颜色越深表示迁往该省的人数越多，图中的线表示top10省份，即迁出的目标省份中人数最多的10个，广西湖南前二，还有一些统计数据的展示我没放上来，主要是那个直接在最终展示里画即可，这边负责的是迁徙的效果图。

春节迁徙图

实现代码：
这部分主要是设置文件可以保存于其他路径，方便之后的传输使用：

library(REmap)
options(remap.js.web = T)   
#该函数在echart3.0更新时有bug，后来联系作者改了，如果是很久前下的REmap包，记得重新卸载该包后重新下载。

读取数据，上面提供了数据的下载地址

library(REmap)
destin <- read.csv(file="C:/Users/yangcheng/Desktop/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin) <- c("names","values")

下面是一些数据的处理：
1.markLine_data有三列，第一列是出发地，第二列是目的地，第三列可有可无，建议设置成颜色。
2.此外该三列均为字符型，对应下文geoData数据框中的第三列，而geoData前两列分别lon(经度),lat(维度)，第三列为字符型的地点名（可自己命名）。
3.格式不能乱。

markLine_data <- data.frame(origin=rep("广州",10),
                            destination=destin[1:10,1],
                            color=rep("#fff",10)