R语言画图却无法显示

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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循环里面的图没有显示出来，这是怎么回事?请大家给看看

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 CAR

已解决

Intelligencey 发表于 2018-4-24 21:42
已解决

你好，这个问题怎么解决的呀？

Intelligencey 发表于 2018-4-24 21:42
已解决

碰到类似问题，请问怎么解决