今天小编给大家分享一下怎么用R语言的barplot()函数绘制状图的相关知识点，内容详细，逻辑清晰，相信大部分人都还太了解这方面的知识，所以分享这篇文章给大家参考一下，希望大家阅读完这篇文章后有所收获，下面我们一起来了解一下吧。
数据：
OTU IDCRW Membrane Transport0.1232550610.1314609080.136381709 Carbohydrate Metabolism0.1185871220.1152349450.101467081 Amino Acid Metabolism0.0990784610.1023070980.098133001 Replication and Repair0.0640276080.081496790.077107142 Energy Metabolism0.0630605790.0669996830.055660175 Translation0.0486662250.0525558320.048639947 Poorly Characterized0.0501483020.0474659650.049391479 Metabolism of Cofactors and Vitamins0.0463398870.0430211620.043328055 Nucleotide Metabolism0.0390221580.0371012490.037240203 Cellular 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()函数绘制状图”这篇文章的所有内容，感谢各位的阅读！相信大家阅读完这篇文章都有很大的收获，小编每天都会为大家更新不同的知识，如果还想学习更多的知识，请关注亿速云行业资讯频道。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
