r - ラティス パッケージの R のトレリス ドット プロットに基準線を追加するにはどうすればよいですか

Question

次のコードは、希望どおりのトレリス ドット プロットを生成しますが、4 つのパネルに参照線を自動的に追加したいと考えています。これを可能にするコードの例を探してみましたが、今のところうまくいきません。誰でも簡単な修正を提案できますか?

dotplot(region ~ productivity | los,
panel = panel.superpose,
group = month,
between = list(x=1, y=0),
index.cond = list(c(4,2,1,3)),
pch = 1:4, col = 1:4,
main = "Monthly Productivity by LoS by Region",
xlab = "Percent",
aspect = 1, 
key = list(space = "right",
    transparent = TRUE,
    points = list(pch = 1:4,
    col = 1:4),
    text = list(c("Jul", "Aug", "Sep", "Oct"))))

ありがとう、

マイク

Answer 1

基準線をどこに置きたいかによって異なります。自分で配置する必要がある場合は、 を使用しますpanel.refline()。(これは本質的に のラッパーでpanel.abline()あり、その関数のデフォルトのスタイリングを参照線により適したものに置き換えます。)

xyplot(mpg ~ disp, data = mtcars,
       panel = function(x,y,...){
           panel.refline(h = c(15,17))
           panel.xyplot(x,y,...)
       })

あるいは、ggplotのように基準線のグリッドが必要な場合は、type=引数を使用して簡単にグリッドを取得できます。

xyplot(mpg ~ disp, data = mtcars, type = c("g", "p")) ## "g"rid and "p"oints