经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
- a<-chartSeries(dat2,name="1",subset="last 2 months",TA=c(addTA(dat2[,c(2,3)],legend = "Vol指标"),addTA(dat2[,c(5,6)],legend = "KDJ指标"),addSMA(n=5,col = "yellow"),addSMA(n=15,col = "blue"),addSMA(n=60,col = "red"),addSMA(n=240,col = "black")),theme=chartTheme('white'))
- b<-chartSeries(dat2,name="2",subset="last 2 months",TA=c(addTA(dat2[,c(2,3)],legend = "Vol指标"),addTA(dat2[,c(5,6)],legend = "KDJ指标"),addSMA(n=5,col = "yellow"),addSMA(n=15,col = "blue"),addSMA(n=60,col = "red"),addSMA(n=240,col = "black")),theme=chartTheme('white'))
- grid.arrange(a,b,nrow=2, ncol=2)
复制代码始终报错 no method for assigning subsets of this S4 class
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|