线条样式

data <- matrix(rep(rep(1:7),10),ncol = 10,nrow = 7)
plot(data[1,],type="l",lty=0,ylim = c(1,8),xlim = c(-1,10),axes = F)
text(0,1,labels = "lty=0")
for(i in c(2:7)){
  lines(data[i,],lty=i-1)
  text(0,i,labels = paste("lty=",i))
}