|
R 语言做散点图,以txt文件里的每两列作比较
setwd("D:/")
a=read.table("3.txt",header=TRUE,sep="t")
a1=as.data.frame(a)
colnames(a1) <-c('gene_name','ES_FPKM','IPS_FPKM','MEF_FPKM')
a1$ES_FPKM
jpeg('1.jpg')
plot(a1$ES_FPKM,a1$IPS_FPKM,pch='.',cex=3,xlab='ES',ylab='IPS',xlim=c(1,18),ylim=c(1,18))
abline(0,1,lwd=2,col='blue')
abline(1.584963,1,lwd=2,col='blue')
abline(-1.584963,1,lwd=2,col='blue')
dev.off()
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-27 07:04
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社