Как добавить опорные линии на графиках решетчатых точек в 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