Rのxyplotで網掛けの背景を取得するには？

Question

latticeパッケージのxyplotを使用して、私は何年にもわたって時系列をプロットします。私は、この期間が「特別」（戦争など）であったことを示すために、これらの年のいくつかに影を付けた領域を追加します。

些細なことをお詫び申し上げますが、私はそれを行う方法を理解できなかったので、誰かが私を助けてくれるか、少なくとも正しい方向に向けることができれば嬉しいです。私の主な問題は、私がこの問題にどう対処するのか本当にわからないということです。私はまだRに比較的新しい、特にlatticeになっています。ここ

最小例：対応するプロットで

xyplot(rnorm(100) ~ 1:100, type="l", col="black") 

、私は下から描画領域の上部に（45〜65までのx - 値言うから）背景の色を希望薄い灰色で陰になる。

私が今までに見つけた解決策は、baseグラフィックとpolygonの機能を使用していますが、カーブの下または上の領域を暗くすることを意図しています。私は "ちょうど"私のラインの下、または私のラインの上の領域を陰にしたくありません。代わりに、私は一定の時間間隔の全体の背景をシェードしたいと思います。

誰もが私を助けてくれたら、とても感謝しています！

Answer 1

はlatticeExtraパッケージに?panel.xblocksを参照してください：

library(latticeExtra) 
x <- 1:100 
xyplot(rnorm(100) ~ x, type="l", col="black") + 
     layer_(panel.xblocks(x, x > 20, col = "lightgrey")) 

Answer 2

は、これを試してください

xyplot( 
    rnorm(100) ~ 1:100, type="l", col="black", 
    panel=function (x,y,...){ 
    panel.rect(xleft=45, xright=65,ybottom=-3, ytop=3,col="grey") 
    panel.xyplot(x,y,...) 
    } 
) 

panel.rect()機能は矩形を制御しrect()関数の格子と等価です。それはあなたが有用であるかもしれない様々な設定を持っています。最初に呼び出され、次にxyplot()がその上に置かれます。 ybottomとytopのパラメータを好きなように見せるには、少しでも遊ぶ必要があります。

Answer 3

trellis.focus("panel", 1, 1) 
grid.rect(x =.55, , y=.5, w = .2, height=6, 
    gp = gpar(fill = "light grey")) 
trellis.unfocus() 

これは、@ JohnPaulの解決策とはいくつか違いがあります（彼の答えは良いと思います）。これは、 "ネイティブ座標"に配置する目的のXバンドの中心を使用し、幅を 'range（xlim）/ range（band）'として計算し、既存のプロットを変更します。 grid.rect関数は、panel.rectによって使用されるグリッドパッケージの下位レベルの関数です。私はときどき、このシステムが内部の格子パネルを統合して私を打ち負かすときにこれが役に立ちます。