[英]ggplot2 add text on top of boxplots
我有一个数据,我正在绘制ggplot2
作为ggplot2
形图,看起来像
> head(varf)
sID variable value
1 SP_SA036,SA040 CM0001 0.492537313
2 SP_SA036,SA040 CM0001 0.479564033
3 SP_SA036,SA040 CM0001 0.559139785
4 SP_SA036,SA040 CM0001 0.526806527
5 SP_SA036,SA040 CM0001 0.009049774
6 SP_SA036,SA040 CM0001 0.451612903
变量列包含16个不同的ID(从CM0001到CM0016)
我有一个带注释的数据框
category annotation
CM001 HG4450
CM002 HG3288
..
CM016 MM8998
我想将这些注释映射到我的箱图上,但是找不到办法,将geom_text与boxplot一起使用的正确语法是什么?
谢谢
varf <- read.table(text = "sID variable value
SP_SA036,SA040 CM0001 0.492537313
SP_SA036,SA040 CM0001 0.479564033
SP_SA036,SA040 CM0001 0.559139785
SP_SA036,SA040 CM0002 0.526806527
SP_SA036,SA040 CM0002 0.009049774
SP_SA036,SA040 CM0002 0.451612903", header = T)
anot <- read.table(text = "category annotation
CM0001 HG4450
CM0002 HG3288", header = T)
varf <- merge(varf, anot, by.x = "variable", by.y = "category", all.x = T)
library(data.table)
quants <- data.table(varf)[, list(quant = as.numeric(quantile(value)[3])), by = variable]
ggplot(varf, aes(x = variable, y = value, fill = variable)) +
geom_boxplot() +
geom_text(data = quants, aes(x = variable, y = quant, label = variable), size = 10)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.