R 柱状图

最新推荐文章于 2024-06-28 20:25:47 发布

Dargon2222

最新推荐文章于 2024-06-28 20:25:47 发布

阅读量446

点赞数 1

分类专栏： R

本文链接：https://blog.csdn.net/qq_41755858/article/details/106329626

版权

R 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

R 柱状图绘制

添加数据标签： geom_text()
颜色模板： scale_fill_brewer(palette=“Pastel1”)
排序： sort(value)
输入：
在这里插入图片描述

> library(ggplot2)
> a=read.table("C:\\Users\\XXX\\Desktop\\GeneExpressionSummary.xls",head=T)
> ggplot(a, aes(x=Sample, y=GeneNumber, fill=Batch)) + geom_bar(stat="identity",width=0.5,colour="black") +theme_classic()+theme(axis.text.x = element_text(angle=30, hjust=0.7, vjust=0.8)) + scale_fill_brewer(palette="Pastel1") +geom_text(aes(label=GeneNumber),vjust=-0.5)
>  ggplot(a, aes(x=Sample, y=sort(GeneNumber), fill=Batch)) + geom_bar(stat="identity",width=0.5,colour="black") +theme_classic()+theme(axis.text.x = element_text(angle=30, hjust=0.7, vjust=0.8)) + scale_fill_brewer(palette="Pastel1") +geom_text(aes(label=GeneNumber),vjust=-0.5)
>

在这里插入图片描述

多组数据展示

facet_grid
facet_grid(facets, margins = FALSE, scales = “fixed”, space = “fixed”, shrink = TRUE, labeller = “label_value”, as.table = TRUE, drop = TRUE)
facet_wrap
facet_wrap(facets, nrow = NULL, ncol = NULL, scales = “fixed”, shrink = TRUE, as.table = TRUE, drop = TRUE)

在这里插入图片描述

>b=read.table("C:\\Users\\XXX\\Desktop\\b.txt",head=T)
> ggplot(b, aes(x=samplename, y=Ratio, fill=Type)) + geom_bar(stat="identity",position="dodge",color="black") + facet_grid(Batch~.) +theme_bw()+theme(axis.text.x = element_text(angle=30, hjust=0.7, vjust=0.8))+xlab("")+scale_fill_brewer(palette="Pastel1") 
>ggplot(b, aes(x=samplename, y=Ratio, fill=Batch)) + geom_bar(stat="identity",position="dodge",color="black") + facet_grid(Type~.) +theme_bw()+theme(axis.text.x = element_text(angle=30, hjust=0.7, vjust=0.8))+xlab("")+scale_fill_brewer(palette="Pastel1") 
>

在这里插入图片描述