怎么用R语言的barplot()函数绘制状图

今天小编给大家分享一下怎么用R语言的barplot()函数绘制状图的相关知识点，内容详细，逻辑清晰，相信大部分人都还太了解这方面的知识，所以分享这篇文章给大家参考一下，希望大家阅读完这篇文章后有所收获，下面我们一起来了解一下吧。

数据：

OTU IDCRWMembrane Transport0.1232550610.1314609080.136381709Carbohydrate Metabolism0.1185871220.1152349450.101467081Amino Acid Metabolism0.0990784610.1023070980.098133001Replication and Repair0.0640276080.081496790.077107142Energy Metabolism0.0630605790.0669996830.055660175Translation0.0486662250.0525558320.048639947Poorly Characterized0.0501483020.0474659650.049391479Metabolism of Cofactors and Vitamins0.0463398870.0430211620.043328055Nucleotide Metabolism0.0390221580.0371012490.037240203Cellular Processes and Signaling0.0360890060.0262093820.039451668

绘图代码

d<-read.table("data.txt",header = T,row.names = 1,sep="\t")d<-as.matrix(t(d))barplot(d)box("l")pdf(file = "bar.pdf",h=7,w=14)cc=c("#e41a1c","#377eb8","#4daf4a")par(mar=c(5,20,4,2))p=barplot(d,beside = TRUE,width = 1,xlab = "Relative abundance",bty = "n", col = cc,border = NA,horiz = T,xaxs="i",names.arg = NULL,axisnames=F)legend("topright",legend = rownames(d),        fill = cc,         bty='n',xpd=T,inset = 0.1,cex = 1.2)axis(side = 2, at = p[2,],labels =F)text(y=p[2,]-0.25, x=-0.005, labels=colnames(d),cex=1,  xpd=TRUE, adj=1)#text(0.1,0.2,labels = "sss")box(bty="l")dev.off()

以上就是"怎么用R语言的barplot()函数绘制状图"这篇文章的所有内容，感谢各位的阅读！相信大家阅读完这篇文章都有很大的收获，小编每天都会为大家更新不同的知识，如果还想学习更多的知识，请关注行业资讯频道。