Как убрать ярлык в facet_wrap

Question

Я сделал ggplot со своими данными. чем я хотел обозначить некоторые взаимодействия между моими данными boxplot (через anova/Tukey), чтобы показать, есть ли существенные различия между специальными группами или нет. но когда я строю свои данные с меткой из моего TukeyHSD, я получаю каждую метку тройной с пустыми пробелами.

Как я могу удалить пустые места. должно быть какое-то решение, чтобы просто показать первые линии дерева с меткой на первом графике, средние линии дерева на среднем графике с их конкретной меткой и последние линии дерева на третьем месте с меткой. Как я могу удалить эти пустые строки с их альфатическими метками?

Вот мой R-код:

ggplot(test, aes(x=int, y=amino)) + stat_boxplot(geom="errorbar") + geom_boxplot(aes(fill=CO2)) + 
    geom_text(data = final, aes(label = Letters, vjust = -0.6)) +
    labs(title = "Aminosäuren Erdkultur", x = "Genotyp", y = "Aminosäurekonz. [µmol/gFW]") +
    scale_x_discrete(labels = c("col.Ammonium" = "col", "sps.Ammonium" = "sps","swe.Ammonium" = "swe",
    "col.Nitrat" = "col", "sps.Nitrat" = "sps","swe.Nitrat" = "swe","col.NON" = "col", "sps.NON" = "sps","swe.NON" = "swe"),
    limits=c("col.Ammonium", "sps.Ammonium","swe.Ammonium","col.Nitrat", "sps.Nitrat","swe.Nitrat", 
    "col.NON", "sps.NON","swe.NON") )+
    guides(fill = guide_legend(title = "CO2-Behandlung")) +
    theme(plot.title = element_text(face = "bold", size="17",hjust = "0.5")) +
    scale_fill_manual(values = c("violetred3", "steelblue1")) +
    facet_wrap( ~ n) +
    theme(legend.title = element_text(face = "bold"))