qqq<-read.csv("GC=F.csv",header = T,na.strings = "null")##将导入的null设置为NA
qqq<-qqq[complete.cases(qqq),]##删除NA行
myts<-ts(qqq$Open)
plot(qqq$Date,myts,type="l")
代码如上，可是用plot画出来的图还是和散点图似的，数据也就不到900个吧，不清楚为啥会出现这样的情况，下图

但是调用quantmod，用chartseries画出来的图就没什么问题了


还有个问题chartseries怎么设置横轴呢