代码这样能正常运行出结果,代码中read.csv后没有赋值给变量d。
setwd('F:\\2021\\qa\\ot2\\rtest') d<-read.csv('rt1.csv',header=T) a=ts(d[,1]) b=ts(d[,2]) c1=min(a,b) c2=max(a,b) plot(b,ylim=c(c1,c2),col='blue') lines(a,lty=2,col='red')
运行结果: