将多条水平线添加到小的多图

Question

我有一个小的多重情节，看起来像这样： 该图显示了两个模型的结果：由 cyl 和 disp 预测的两种传输类型的 mpg。 0为第一款，适用于自动变速箱。 1为第二种型号，适合手动档。 获取情节的代码是这样的：

library(tidyverse)
library(dotwhisker)

mod_mtcars='mpg~cyl+disp'

np_mtcars=mtcars%>%
  group_by(am)%>%
  do(broom::tidy(lm(mod_mtcars, data= . )))%>%
  rename(model=am)

small_multiple(np_mtcars)

我想在每个子图中添加一条水平线，它对应于没有组的模型拟合的系数（完整的池模型： cp=lm(mpg~cyl+disp, data=mtcars) ）。 例如，我知道如何添加一条通用水平线，截距为 0。 但是，有谁知道如何为每个子图添加不同的行？

当我对cp ( cp_coeff=coef(cp) ) 的系数进行矢量化并将它们添加到图中时，我会在每个子图上同时获取所有这些cp_coeff=coef(cp) 。 当我运行下面的循环时，我得到打印在每个子图上的向量的最后一个元素。

for (i in 1:2){
  small_multiple(np_mtcars)+
    geom_hline(cp_coeff[i])}

Answer 1

您需要添加另一个图层，如下所示：

small_multiple(np_mtcars)  + 
  geom_hline(data = broom::tidy(cp)[-1,], aes(yintercept=estimate))

查看broom::tidy(cp)以解释为什么它起作用（与np_mtcars相比），并考虑在图中已经定义的方面如何绘制它。