溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

R語言實例代碼分析

發(fā)布時間：2022-03-25 15:43:33 來源：億速云 閱讀：124 作者：iii 欄目：大數(shù)據(jù)

本篇內(nèi)容介紹了“R語言實例代碼分析”的有關(guān)知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習一下如何處理這些情況吧！希望大家仔細閱讀，能夠?qū)W有所成！

data <- read.csv("11.csv",header=T)

data <- as.matrix(data)

pdf("Number_of_cock_SNPs(M).pdf")

cols =c("royalblue2","yellow2")

par(fig=c(0.1,1,0,0.8))

barplot(data,col = cols,las=2,xlim=c(0,10),sub="Number of cock_SNPs(M)",horiz =TRUE,axis.lty = 1)

j=2.1

for (i in 2:14){

text(4,j,data[1,i],cex=0.9)

text(5,j,paste("(",round(data[1,i]/(data[1,i]+data[2,i]),2),"%",")",sep=""),cex=0.9)

j=j+1.17

}

j=2.1

par(fig=c(0.1,1,0.55,1),new=TRUE)

plot(data,axes=FALSE,col="white",ann=FALSE)

legend("bottom",cex=0.8,pch=c(15,15),col=c("royalblue2","yellow2"),

legend=c("Overlapped SNPs with chicken dbSNPs","Novel SNPs"))

dev.off()

“R語言實例代碼分析”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識可以關(guān)注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實用文章！

向AI問一下細節(jié)

免責聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手