如何将 emmeans 误差条添加到 geom_bar

我正在尝试使用 emmeans 在我的 ggplot geom_bar 上放置误差线，以便我的置信区间的上限/下限由我的模型预测计算。但是，我无法弄清楚如何手动将这些误差条放入我的条形图中，并且还没有在网上找到相关信息。

对于这篇文章，我使用默认的 pigs 数据集作为玩具示例，按百分比绘制源。这是我的情节：

pigs_plot <- pigs %>%
  ggplot(aes(x=source,y=percent,fill=source)) +
  geom_bar(width = 0.5,position = position_dodge(),stat="summary")

然后使用 emmeans，我计算了以下模型的置信度上限和下限：

lm1 = lm(log(conc) ~ source + percent,data = pigs)
emm1 = emmeans::emmeans(lm1,specs = "percent",by="source")

我现在如何将这些值作为每种源类型的误差条插入到我的条形图中？此代码取自以下资源：https://garthtarr.github.io/meatR/emmeans.html