clean=read.csv("Clean.csv",head=T)
attach(clean)
plot(Length,V1,type="b",col=3,lty=2,pch=1,xlim=c(17,37))
lines(Length,V2,type="b",col=4,lty=3,pch=2)
lines(Length,V3,type="b",col=5,lty=4,pch=3)
lines(Length,V4,type="b",col=6,lty=5,pch=4)
lines(Length,V5,type="b",col=7,lty=6,pch=5)
lines(Length,V6,type="b",col=8,lty=7,pch=6)
lines(Length,V7,type="b",col=9,lty=8,pch=7)
lines(Length,V8,type="b",col=10,lty=9,pch=8)
axis(1,seq(18,36,by=1))
axis(2,seq(0,3000000,by=500000))
legend("topleft", c(paste("V",1:8,sep="")), col = c(3:10), lty = c(2:9), pch = c(1:8), merge = TRUE, bg='gray90')

for (i in 1:ncol(dat)) {
    if (i == 1)
        plot(1:nrow(dat), dat[, i], pch = i, lwd = 2, type = "o", col = i, axes = F, ylim = c(min(dat), max(dat)))
    lines(1:nrow(dat), dat[, i], pch = i, type = "o", lwd = 2, col = i)
}
axis(2)
axis(1, at = 1:nrow(dat), labels = rownames(dat))
legend("topleft", legend = colnames(dat), col = 1:ncol(dat), lwd = 2)
box()

看了下你新给的数据，
需要a <- read.csv("Clean2.txt",sep="\t",header=T)
      a[,1] <-18:36
      a
做多条折线时，可以用 matplot(.....,axes=F) #axes=F去边框
                                        axis,,,,,
干嘛非要 plot 呢？
是不是 ，马同学？

嗯，我试试，我刚接触，这个matplot还没接触过，我试试。你们怎么知道我姓ma？

shengwei 同学，不好意思 我们都知道，lol