在ggplot的多个方面扩展注释行

Question

当我面对一个情节时，我经常想指出群体之间有趣的比较。例如，在此代码生成的图中，我想指出第二列和第三列几乎完全相同。

library(tidyverse)

ggplot(mtcars, aes(x = as.factor(am), y = mpg)) + 
    stat_summary(fun.y = "mean", geom = "col") + 
    stat_summary(fun.data = mean_se, geom = "errorbar", width = .1) + 
    facet_grid(~ vs) 

目前我只能通过将我的绘图导出到另一个应用程序（如Preview或Powerpoint）并手动在构面之间添加线条和文本来进行此注释。

我在facets中添加注释的努力导致注释不会留下自己的方面。见下文。

ggplot(mtcars, aes(x = as.factor(am), y = mpg)) + 
    stat_summary(fun.y = "mean", geom = "col") + 
    stat_summary(fun.data = mean_se, geom = "errorbar", width = .1) + 
    facet_grid(~ vs) +
    annotate("errorbarh", xmin = 2, xmax = 3, y = 25, height = .5, 
      color = "red") + 
    annotate("text", x = 2.5, y = 27, label = "NS", color = "red")

有关如何在整个方面扩展线条和注释的任何建议都将非常感激。