我正在尝试在用quantmod
.
> s<-get(getSymbols('phmd'))["2012:"]
> d<-findSupport(s,p=5,threshold=1)
> d
low high cnt std
1 14.79000 14.85292 2 0.04448880
2 13.27222 13.31500 2 0.03024846
3 13.09000 13.15000 2 0.04242641
4 14.12000 14.20583 2 0.06069333
5 12.30222 12.38421 2 0.05797449
6 11.38269 11.43200 2 0.03486580
> chartSeries(s)
> u <- par("usr")
> rect(u[1],d[,'low'],u[2],d[,'high'],col=rgb(1,0,0,alpha=0.5),border=0)
更改窗口大小时,绘制的矩形会偏离。为什么会这样,我该如何克服呢?请协助,谢谢。