R语言可视化——用ggplot构造期待已久的雷达图

之前一直苦恼于ggplot函数无法制作雷达图,心想着既然饼图可以通过柱形图+极坐标模拟出来,为啥雷达图不行。

我尝试着用折线图+极坐标来模拟雷达图(之前在制作饼图和圆环图以及玫瑰图的时候就是这样做的)。

结果就粗线了以下不伦不类的图形:

data<-data.frame(Name = c("苹果","谷歌","脸书","亚马逊","腾讯"),Company = c("Apple","Google","Facebook","Amozon","Tencent"),Sale2013 = c(5000,3500,2300,2100,3100),Sale2014 = c(5050,3800,2900,2500,3300),Sale2015 = c(5050,4000,3200,2800,3700),Sale2016 = c(6000,4800,4500,3500,4300))
mydata<-melt(data,id.vars=c("Name","Company"),variable.name="Year",value.name="Sale")
ggplot(mydata,aes(Company,Sale,group=Year,color=Year))+geom_line()+coord_polar(theta = "x")

虽说效果已经很接近了,但是整体上还是无法达到雷达图的要求,首尾线条没有相连,点之间是通过弧线链接而非直线。

后来又是在浏览r语言论坛时,无意间看到一个围绕ggplot2包开发的插件——ggradar,果不其然,是专门用于辅助ggplot2制作雷达图而生的。

接下来我跟大家分享该插件的使用方法:

因为是开发版的,托管在github网站上,所以不能通过普通途径下载,需要使用devtools工具:

install_github("ricardo-bion/ggradar")

library("ggplot2")

library("ggradar")

下面开始构造数据集:

mydata<-matrix(runif(40,0,1),5,8)

#以上构造了一个值区间为0~1,个数为40的5行8列随机数矩阵。

rownames(mydata) <- LETTERS[1:5]

#以上使用前五个大写字母为矩阵行命名;

colnames(mydata) <- c("Apple","Google","Facebook","Amozon","Tencent","Alibaba","Baidu","Twitter")

#使用以上文本向量为矩阵列命名;

mynewdata<-data.frame(mydata)

#将矩阵数据表格转化为数据框格式作图数据:

为数据框增加一列文本字段:

Name<-c("USA","CHN","UK","RUS","JP")

mynewdata<-data.frame(Name,mynewdata)

ggradar(mynewdata[1,])

以上的图表是默认样式,ggradar函数对数据格式以及变量值范围高度敏感,而却不过多的依赖函数内的参数。

ggradar(mynewdata)

可以看出,ggradar函数支持多序列雷达图,只是对它规定的数据结构很不能理解,为啥不是列代表分类,行代表轴变量呢,跟ggplot的语法还是有一些偏离,不过只要数据构造好之后,作图函数的语法是相当简练的。

原文发布于微信公众号 - 数据小魔方(datamofang)

原文发表时间:2016-11-08

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏天天P图攻城狮

Android 音视频系列:H264视频编码介绍

H264视频编码技术,是对序列帧图像进行压缩的技术。压缩之所以可能,是因为存在冗余数据。

5946
来自专栏机器之心

资源 | 像「花书」一样排版:Ian Goodfellow「亲授」的高级LaTex教程

机器之心整理 作者: Ian Goodfellow 参与:邱陆陆 当地时间 3 月 1 号,深度学习知名同名教材《Deep Learning》的第一作者 Ian...

44210
来自专栏携程技术中心

个性化推荐沙龙 | 饿了么推荐系统的从0到1(含视频)

本文来自陈一村在携程个性化推荐与人工智能Meetup上的分享。 陈一村 ,饿了么数据运营部资深算法工程师。2016年加入饿了么,现从事大数据挖掘和算法相关工作,...

4038
来自专栏用户2442861的专栏

买卖股票最多K次

给定一个大小为n的数组,数组的元素a[i]代表第i天的股票价格。 设计一个算法,计算在最多允许买卖k次(一买一卖记为一次)的条件下的最大收益。 需要注意的...

1093
来自专栏Android 开发者

Android Smart Linkify 支持机器学习

上半周,我们发布了 Android 9 Pie,这是 Android 的最新版本,它的机器学习应用使您的手机更简单易用。 Android 9 中有一项功能是 S...

1443
来自专栏鹅厂优文

游戏人工智能 读书笔记 (四) AI算法简介——Ad-Hoc 行为编程

本书英文版: Artificial Intelligence and Games - A Springer Textbook

24110
来自专栏深度学习与数据挖掘实战

干货|社区发现算法FastUnfolding的GraphX实现

现实生活中存在各种各样的网络,诸如人际关系网、交易网、运输网等等。对这些网络进行社区发现具有极大的意义,如在人际关系网中,可以发现出具有不同兴趣、背景的社会团体...

2343
来自专栏机器之心

资源 | 囊括欧亚非大陆多种语言的25个平行语料库数据集(拿走不谢!)

原文链接:https://gengo.ai/datasets/25-best-parallel-text-datasets-for-machine-transl...

1513
来自专栏CDA数据分析师

案例 | 5步掌握Python数据分析挖掘基础应用

许许多多的人都非常容易爱上Python这门语言。自从1991年诞生以来,Python现在已经成为最受欢迎的动态编程语言之一,尤其进入21世纪以来,Python在...

2389
来自专栏AI科技大本营的专栏

开启机器学习的第一课:用Pandas进行数据分析

翻译 | AI科技大本营 参与 | 林椿眄 本课程的目的并不是要开发一门全新的机器学习或数据分析的综合入门课程,也不是想借此来取代基础教育、在线/离线课程或一...

4275

扫码关注云+社区