r - 如何在格子包中的 R 中的格状点图中添加参考线

Question

以下代码完全按照我的意愿生成格子点图，但我想自动将参考线添加到四个面板。我已经尝试搜索可以让我这样做的代码示例，但到目前为止还没有运气。谁能建议一个简单的修复？

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,...)
       })

或者，如果您只是想要一个参考线网格 à la ggplot，则该type=参数提供了一种简单的获取方法：

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