car_DF<-read.csv("E:/stock/Car_DF.csv",header=T,stringsAsFactors = FALSE)
car_DF.Date<-as.Date(car_DF$X,format = "%Y-%m-%d")
library(zoo)
library(xts)

car_DF.zoo<-zoo(car_DF$X600006.SS.Close,car_DF.Date)
car_DF.xts<-as.xts(car_DF.zoo)
plot(car_DF.xts)

wcar_DF<-window(car_DF.xts,start=as.Date("2017-10-01"))
##wcar_DF<-window(car_DF.xts,start=as.Date("2014-10-01"))
plot(wcar_DF)


DF_Vec<-as.vector(wcar_DF)
opar<-par(no.readonly = TRUE)
par(mfrow=c(3,2))

for(i in 1:6){
DF_Lag<-lag(wcar_DF,k=i)
DF_Lag_Vec<-as.vector(DF_Lag)
DF_Y<-DF_Vec[(i+1):length(DF_Vec)]
DF_X<-DF_Lag[(i+1):length(DF_Lag)]
plot(DF_X,DF_Y,type="p")
lines(ksmooth(DF_X,DF_Y,"normal",bandwidth = 1),col=2)
}
par(opar)
我在用上述代码画图时，代码运行无报错，但是for循环里面的图没有显示出来，这是怎么回事?请大家给看看