setwd('D:\\Program Files\\RStudio\\snp')
exp1 <- read.table("FtB4_chr1_con")
exp2 <- read.table("FtB4_chr2_con")
snp1 <- read.table("Ft20_chr1")
snp2 <- read.table("Ft20_chr2")
par(mfcol=c(4,1))
plot(exp1$V3,xlim=c(0,330),xaxt="n",yaxt="n",type = "l",col="blue",xlab = "",ylab = "")
plot(snp1$V3,xlim=c(0,330),xaxt="n",yaxt="n",type = "l",col="red",xlab = "",ylab = "")
plot(exp2$V3,xlim=c(0,285),xaxt="n",yaxt="n",type = "l",col="blue",xlab = "",ylab = "")
plot(snp2$V3,xlim=c(0,285),xaxt="n",yaxt="n",type = "l",col="red",xlab = "",ylab = "")
现在图形是一样长的