R- 编程- get.current.chob() 中的错误：设置不正确或缺少图形设备

Question

library(quantmod)
getSymbols("LT.NS")
plot(LT.NS["2013-12-01::2014-12-01"])
close<-Cl(LT.NS["2013-12-01::2014-12-01"])
open<-Op(LT.NS["2013-12-01::2014-12-01"])
close<-as.matrix(close)
open<-as.matrix(open)
bbands<-addBBands(n=20,sd=2)
values_bbands<-bbands@TA.values
values_bbands[is.na(values_bbands)]<-0
bbands<-as.matrix(values_bbands)
up<-bbands[,1]
up<-as.matrix(up)
down<-bbands[,3]
down<-as.matrix(down)
data<-read.table("c:\temp\dates.txt")
attach(data)
head(data)
stock<-as.matrix(data)

for(i in 131:261)
{
    if(close[i]>down[i])
    {
    print("the selling date is:")
    print(i)
    big.red.dot <- xts(open[i], as.Date(stock[i,1]))
    points(big.red.dot, col="red", pch=19, cex=0.5  )
    }
    if(close[i]<up[i])
    {
        print("the buying date is:")
        print(i)
        big.green.dot <- xts(open[i], as.Date(stock[i,1]))
        points(big.green.dot, col="green", pch=19, cex=0.5  )
    }

}

当我在 R 中运行这段代码时，我得到“**** get.current.chob() 中的错误：设置不当或缺少图形设备”****。 2-3 次我可以获得带有正确图表的输出，图表上指示买卖信号，但现在当我运行代码显示此错误时，我也在不同版本的 R-1.3 上尝试过出现错误。在我上面的代码中 bbands<-addBBands(n=20,sd=2) 合适吗？因为当我运行我的代码在单独的行中时，这一行也会显示相同的错误。我希望最终输出是一个图表，在各个点指示买卖点。

Answer 1

不，bbands <- addBBands(n=20,sd=2)不合适。

应调用

addBBands 将布林带添加到 chartSeries 创建的现有图形设备中。您还可以将其直接包含在 chartSeries 调用中：

library(quantmod)
getSymbols("LT.NS")
chartSeries(LT.NS, TA="addBBands(n=20)", subset="2013-12-01::2014-12-01")

如果您只想计算布林带，只需调用 TTR::BBands（addBBands 就是这样做的）。

bbands <- BBands(HLC(LT.NS), n=20, sd=2)

在构造必要的绘图对象后，您可以通过调用 addPoints 来完成您正在做的所有其他事情。

# sells
sell <- Op(LT.NS)
is.na(sell) <- which(!Cl(LT.NS) > bbands$dn)
addPoints(1:nrow(sell), sell, col='red', pch=19, cex=0.5)
# buys
buy <- Op(LT.NS)
is.na(buy) <- which(!Cl(LT.NS) < bbands$up)
addPoints(1:nrow(buy), buy, col='green', pch=19, cex=0.5)

但请注意，您的买卖并不相互排斥。

> head(cbind(buy,sell))
           LT.NS.Open LT.NS.Open.1
2007-01-01     1445.9       1445.9
2007-01-02     1447.0       1447.0
2007-01-03     1458.0       1458.0
2007-01-04     1489.7       1489.7
2007-01-05     1500.0       1500.0
2007-01-08     1471.0       1471.0

R- 编程- get.current.chob() 中的错误：设置不正确或缺少图形设备

R- programming- Error in get.current.chob() : improperly set or missing graphics device

r

graph

quantmod