扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
本篇内容介绍了“R语言实例代码分析”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！
创新互联秉承实现全网价值营销的理念，以专业定制企业官网，做网站、成都网站建设，小程序定制开发，网页设计制作，成都做手机网站，成都全网营销推广帮助传统企业实现“互联网+”转型升级专业定制企业官网,公司注重人才、技术和管理，汇聚了一批优秀的互联网技术人才,对客户都以感恩的心态奉献自己的专业和所长。
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语言实例代码分析”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网