如何在格子包中的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