r - ウィンドウ サイズを変更すると、quantmod シリーズの上の rect がオフになります

Question

で描画されたチャート シリーズの上に四角形を描画しようとしてい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)

ウィンドウサイズを変更すると、描画される長方形がかなりずれます。それはなぜですか、どうすればこれを克服できますか? 助けてください、ありがとう。

Answer 1

よくわかりませんquantmod。add_XXXしかし、プロット オブジェクト (chob) に情報を追加して再描画する関数が必要だと思います。例を参照addLinesしてください。

そうは言っても、実験的な機能を使用するとchart_Series、ウィンドウのサイズを変更しても問題はありません。