Добавление posthoc статистических букв поверх boxplot с помощью ggplot2
У меня возникают трудности при добавлении информации из статистических тестов posthoc в коробочный график, созданный ggplot2. Кто-то еще опубликовал пример, специфичный для теста Тьюки, однако я использую другие непараметрические тесты, и этот пример не работает для меня. Я добавил статистические буквы в фрейм данных, используемый для создания графика. Я старался:
Chao1_plot <- ggplot(alpha_div, aes(x=Diet, y=chao1, fill=Diet)) +
geom_boxplot(outlier.size = 1) +
geom_text((aes(y=chao1, x=Diet, label = posthoc_chao1)))
Chao1_plot
Тем не менее, это наносит дубликаты статистических букв на каждый блокпост вместо одного. Есть предложения или другие подходы?