annotate(ggplot2)

最新推荐文章于 2025-04-14 15:54:33 发布

weixin_30906425

最新推荐文章于 2025-04-14 15:54:33 发布

阅读量2.6k

点赞数

文章标签： r语言

原文链接：http://www.cnblogs.com/zhengzh/p/9769111.html

版权

本文详细介绍了如何使用ggplot2的annotate函数在图表中添加文字、矩形和其他几何对象，以增强数据可视化效果。通过具体代码示例，展示了如何在密度分布图上精确放置文本标签和矩形区域，以及调整其位置和样式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ggplot2中的annotate可以在已有图形基础上，添加任意几何对象（如rect,pointrange，text等）

ggplot(ct1, aes(x=pos, group=Feature, weight=weight))  +
        scale_x_continuous(minor_breaks = seq(0, 5, 1)) + 
        ggtitle("Distribution on mRNA") +
        theme(axis.ticks = element_blank(), axis.text.x = element_blank()) + 
        xlab("") + 
        ylab("Frequency") +
        geom_density(adjust=adjust,aes(fill=factor(Feature),colour=factor(Feature)),alpha=0.2) +
        annotate("text", x = sum(x1[1:2])/2, y = -0.2, label = "5'UTR") +
        annotate("text", x = sum(x1[2:3])/2, y = -0.2, label = "CDS") +
        annotate("text", x = x1[1]/2, y = -0.2, label = "Promoter (1kb)") +
        annotate("text", x = sum(x1[4:5])/2, y = -0.2, label = "Tail (1kb)") +
        annotate("text", x = sum(x1[3:4])/2, y = -0.2, label = "3'UTR")  + 
        geom_vline(xintercept=x1[1:4], linetype="dotted") + 
        annotate("rect", xmin = x1[1], xmax = x1[2], ymin = -0.12, ymax = -0.08, alpha = .99, colour = "black")+
        annotate("rect", xmin = x1[3], xmax = x1[4], ymin = -0.12, ymax = -0.08, alpha = .99, colour = "black")+
        annotate("rect", xmin = x1[2], xmax = x1[3], ymin = -0.16, ymax = -0.04, alpha = .2, colour = "black") +
        xlim(0,1) +
        theme(legend.position="bottom")