Когда я рассматриваю сюжет, я часто хочу указать на интересные сравнения между группами. Например, на графике, созданном этим кодом, я хотел бы отметить, что второй и третий столбцы почти идентичны.
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, и вручную добавив линии и текст по фасетам.
Мои попытки добавить аннотацию к граням приводят к тому, что аннотации не покидают свою собственную грань. Смотри ниже.
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")
Будем очень признательны за любые советы о том, как расширить линии и аннотации по граням.