前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >R语言ggplot2环形图小例子

R语言ggplot2环形图小例子

作者头像
用户7010445
发布2020-03-03 15:07:25
4K0
发布2020-03-03 15:07:25
举报
文章被收录于专栏:小明的数据分析笔记本
原文地址

https://www.r-graph-gallery.com/128-ring-or-donut-plot.html

本文展示的环形图主要是基于geom_rect()函数实现,我们先看一下ggplot2帮助文档中的例子 查看帮助文档 help(package="ggplot2") 重复帮助文档中的例子 第一步:构建数据集

代码语言:javascript
复制
df <- data.frame(x = rep(c(2, 5, 7, 9, 12), 2),
                 y = rep(c(1, 2), each = 5),
                 z = factor(rep(1:5, each = 2)),
                 w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2))
df

第二步:画图

代码语言:javascript
复制
library(ggplot2)
ggplot(df,aes(xmin=x-w/2,xmax=x+w/2,
              ymin=y,ymax=y+1))+
  geom_rect(aes(fill=z),color="grey50")+
  theme_bw()

image.png

这个例子构造的数据集稍微有点复杂,不太好理解

下面用文章开头提到的链接的数据,数据简单相对好理解 第一步:构造数据集

代码语言:javascript
复制
df<-data.frame(category=c("A","B","C"),
               count=c(10,60,30))
df$fraction<-df$count/sum(df$count)
df$ymax<-cumsum(df$fraction)
df$ymin<-c(0,head(df$ymax,n=-1))

第二步:画图

代码语言:javascript
复制
ggplot(df,aes(ymax=ymax,ymin=ymin,
              xmax=4,xmin=3))+
  geom_rect(aes(fill=category))+
  theme_bw()

image.png 变成环形用到的是coord_polar()函数

代码语言:javascript
复制
ggplot(df,aes(ymax=ymax,ymin=ymin,
              xmax=4,xmin=3))+
  geom_rect(aes(fill=category))+
  theme_bw()+
  xlim(2,4)+
  coord_polar(theta="y")

image.png 添加文本标签,修改一些细节

代码语言:javascript
复制
df$labelPosition<-(df$ymax + df$ymin)/2
df$label<-paste0(df$category,"\n value: ",df$count)
ggplot(df,aes(ymax=ymax,ymin=ymin,
              xmax=4,xmin=3))+
  geom_rect(aes(fill=category))+
  geom_label(x=3.5,aes(y=labelPosition,label=label),size=4)+
  scale_fill_brewer(palette = 4)+
  coord_polar(theta = "y")+
  xlim(2,4)+
  theme_void()+
  theme(legend.position = "none")

image.png 调整圆环的粗细

代码语言:javascript
复制
ggplot(df,aes(ymax=ymax,ymin=ymin,
              xmax=4,xmin=3))+
  geom_rect(aes(fill=category))+
  geom_label(x=2,aes(y=labelPosition,label=label,color=category),size=4)+
  scale_fill_brewer(palette = 4)+
  coord_polar(theta = "y")+
  xlim(-1,4)+
  theme_void()+
  theme(legend.position = "none")
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2020-01-07,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 小明的数据分析笔记本 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 原文地址
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档