Объединение facet_grid с geom_abline

Question

Я пытаюсь использовать geom_abline с facet_grid, где у меня есть 4 месяца в категориальной переменной и 4 озера в категориальной переменной, что дает сетку из 16 панелей. Я уже построил трассы и перехваты, используя coef(summary(lm)) из 4 разных lm моделей. Можно ли указать, к каким панелям в facet_grid я хочу добавить geom_abline? Я добавил несколько фиктивных данных, чтобы понять, что я пытаюсь сделать, но подумайте о том, что все 16 панелей имеют несколько точек данных, а не 4 из них имеют одну ..

df1 <- data.frame(month =c("May","June","September","October"),
              lake = c("L1","L2","L3","L4"),
              var1 = c(10,9,8,9),
              var2 = c(11,9,8,9)
              )

gridfig <- ggplot(df1, aes(var2,var1))+
  facet_grid(rows = vars(month), cols = vars(lake))+
  geom_point(size = 2)

Любой совет будет высоко ценится.

Answer 1

Если вы строите свою модель с lm, вы можете использовать geom_smooth для непосредственного построения модели. Здесь я использовал набор данных mpg, чтобы показать вам, как это сделать:

ggplot(mpg, aes(x = displ, y = cty)) + 
    geom_point() + 
    facet_grid(drv ~ cyl) +
    geom_smooth(method = "lm")