ts1<-ts(test_data$tot_num,frequency = 365,start=c(2017,11,21))
plot(ts1,col='blue',lty='dotted',ylim=c(50,550))
par(new=TRUE)
ts2<-ts(test_data$pre_result,frequency = 365,start=c(2017,11,21))
plot(ts2,col='red',ylim=c(50,550))
好用，需要注意控制相同的xlim和ylim