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))
}
线条样式
最新推荐文章于 2023-03-22 11:25:33 发布