R语言绘制环状条形图

分享一波环状条形图的代码，可以自己动手试试~

library(tidyverse)# 创建数据集
data <- data.frame(individual=paste( "Mister ", seq(1,60), sep=""),group=c( rep('A', 10), rep('B', 30), rep('C', 14), rep('D', 6)) ,value=sample( seq(10,100), 60, replace=T)
)

#在每个分组的末尾添加空白距离
empty_bar <- 4
to_add <- data.frame( matrix(NA, empty_bar*nlevels(data$group), ncol(data)) )
colnames(to_add) <- colnames(data)
to_add$group <- rep(levels(data$group), each=empty_bar)
data <- rbind(data, to_add)
data <- data %>% arrange(group)
data$id <- seq(1, nrow(data))

# 获取每个lable的名称以及y轴的位置
label_data <- data
number_of_bar <- nrow(label_data)
angle <- 90 - 360 * (label_data$id-0.5) /number_of_bar
label_data$hjust <- ifelse( angle < -90, 1, 0)
label_data$angle <- ifelse(angle < -90, angle+180, angle)

# 绘图
p <- ggplot(data, aes(x=as.factor(id), y=value, fill=group)) +       geom_bar(stat="identity", alpha=0.5) +ylim(-100,120) +theme_minimal() +theme(legend.position = "none",axis.text = element_blank(),axis.title = element_blank(),panel.grid = element_blank(),plot.margin = unit(rep(-1,4), "cm") ) +coord_polar() + geom_text(data=label_data, aes(x=id, y=value+10, label=individual, hjust=hjust), color="black", fontface="bold",alpha=0.6, size=2.5, angle= label_data$angle, inherit.aes = FALSE ) p

“作图帮”公众号免费分享绘图代码与示例数据，小伙伴可以关注一下哦

R语言绘制环状条形图相关推荐

R语言绘制简单条形图
自己用了一个csv文件要求: 数据:data3_1.csv.根据2000个消费者网购情况的调查数据,分别绘制性别, 大数据 R 语言程序设计实验河北地质大学信息工程学院大数据专业网购次数和满 ...
使用R语言绘制富集条形图，轻松分析基因表达数据
一.引言富集分析(enrichment analysis)是一种生物信息学方法,它可以帮助我们识别基因或其他的生物实体在某个特定的类别中过度表示的趋势.通俗来说,富集分析通过将基因分类到特定的集合中 ...
R 语言绘制环状热图
作者:佳名来源:简书 - R 语言文集 1. 读取并处理基因表达数据这是我的基因表达量数据: 图 Fig 1 > myfiles <- list.files(pattern = &qu ...
R语言绘制堆叠条形图
ggplot2画简单堆叠条形图 1.使用ggplot2和reshape2包: library(ggplot2) library(reshape2) 2.创建并读取数据: df = read.table ...
R 语言绘制均值条形图
条形图并不一定要基于计数数据或频率数据.你可以使用数据整合函数并将结果传递给 barplot()函数,来创建表示均值.中位数.标准差等的条形图. > states <- data.fram ...
初学小白如何用R语言绘制环状桑基图
最近写论文时看到大佬制作的环状桑基图很是心动: 但使用sankeywheel包无法输出,在网上找了教程试错多次,终于成功输出了,特此记录 1.加载包,用到highcharter包 library(sa ...
R语言绘制不一样的条形图
绘制条形图的方法有很多,这里介绍如果用R语言绘制一个不一样的条形图准备数据,这里为了方便,我们使用已经存在于gcookbook包中的一个数据集首先需要调用该包,如果该包不存在,可以使用下面的方式安 ...
R语言绘制环形树状图
R语言绘制环形树状图 1.主要用到dendextend和circlize包绘图: library(dendextend) library(circlize)# 距离矩阵 d <- dist(US ...
R语言绘制二维密度图
R语言绘制二维密度图二维密度图显示了两个数值变量之间的关系,一个在x轴上表示,另一个在Y轴上表示,与散点图类似,然后计算二维空间中特定区域内的观测数,并用颜色梯度表示.二维密度图有几种类型,以下主要 ...

R语言绘制环状条形图

R语言绘制环状条形图相关推荐

最新文章

热门文章