如何在晶格包中的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,...)
       })

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

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