您好,登錄后才能下訂單哦!
今天小編給大家分享一下怎么用R語言的barplot()函數(shù)繪制狀圖的相關(guān)知識(shí)點(diǎn),內(nèi)容詳細(xì),邏輯清晰,相信大部分人都還太了解這方面的知識(shí),所以分享這篇文章給大家參考一下,希望大家閱讀完這篇文章后有所收獲,下面我們一起來了解一下吧。
數(shù)據(jù):
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()函數(shù)繪制狀圖”這篇文章的所有內(nèi)容,感謝各位的閱讀!相信大家閱讀完這篇文章都有很大的收獲,小編每天都會(huì)為大家更新不同的知識(shí),如果還想學(xué)習(xí)更多的知識(shí),請(qǐng)關(guān)注億速云行業(yè)資訊頻道。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。