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()