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))
}
线条样式
最新推荐文章于 2022-07-14 09:42:34 发布