R语言堆叠占比柱状图_R绘图笔记 | 柱状图绘制

可先阅读文章：R绘图笔记 | R语言绘图系统与常见绘图函数及参数

1.单数据系列柱状图

###绘图数据data "Sample1;Sample2;Sample3;Sample4;Sample5gene1;2.6;2.9;2.1;4.5;2.2gene2;20.8;9.8;7.0;3.7;19.2gene3;10.0;11.0;9.2;12.4;9.6gene4;9;3.3;10.3;11.1;10"data data, header=T, row.names=data

##gene1的在不同样本中的表达data1 data)[,names(data1) "gene1"data1$sample data1)

> data1        gene1  sampleSample1   2.6 Sample1Sample2   2.9 Sample2Sample3   2.1 Sample3Sample4   4.5 Sample4Sample5   2.2 Sample5

绘图：geom_bar用于绘制柱状图，ylim设置纵轴值范围，them设置主题，axis.title设置坐标轴名称参数，axis.text设置坐标轴参数。

ggplot(data=data1,aes(x=sample,y=gene1))+  geom_bar(stat = "identity",            width = 0.8,colour="black",size=0.25,           fill="#FC4E07",alpha=1)+  ylim(0,max(data1$gene1))+  theme(    axis.title=element_text(size=15,face="plain",color="blue"),    axis.text = element_text(size=12,face="plain",color="red")  )

可将数据进行排序后绘图。

#排序方法1：基于数据框data.framelibrary(dplyr)data1.adata1,desc(gene1))data1.a$sample data1.aggplot(data=data1.a,aes(x=sample,y=gene1))+   geom_bar(stat = "identity", width = 0.8,           colour="black",size=0.25,fill="#FC4E07",alpha=1)

#排序方法2：基于向量vectordata1.b data1orderdata1.bdata1.b$sample data1.bggplot(data=data1.b,aes(x=sample,y=gene1))+   geom_bar(stat = "identity", width = 0.8,           colour="black",size=0.25,fill="black",alpha=1)

将所有样本的基因表达值都绘制出来，position=position_dodge()表示柱子并排放置。也可以通过position_dodge()函数来改变数据序列间的间隔。

data2 data),data2 data2, id.vars=c(ggplot(data2, aes(x=gene, y=value))+   geom_bar(stat="identity", position=position_dodge()