Как настроить положение метки для множественного попарного сравнения в ggplot?

Question

Я хотел бы настроить метку графика, чтобы она была более чище, например, на этом графике парного сравнения метка (скобка и значение p) перекрываются друг с другом:

and some other plot the label not fully shown (cut by the margin):

plot2

Дело в том, что я применяю функцию для 50 переменных, поэтому регулировка положения с помощью label.x и label.y не будет работать, потому что каждая переменная имеет разный масштаб по осям x и y.

вот мой код:

#perform multiple pairwise comparisons

my_comparisons <- list( c("hCRP", "nCRP"), c("nCRP", "HC"), c("hCRP", "HC") )

pc <- lapply(colnames(data)[2:ncol(data)], 
             function(col) ggviolin(data, x = "group", y = col, xlab = F, 
                                    size = 1, color = "group", palette = "jco", 
                                    add = "boxplot") + 
               geom_jitter(height = 0, width = .1, alpha = .2) +
               theme(legend.position = "none") +
               stat_compare_means(method = "t.test", comparisons = my_comparisons))

#visualization and save to pdf

plots_pc <- lapply(pc, '+', margin)

cairo_pdf("plot.pdf", width = 24, height = 14)
plot_grid(
  do.call(plot_grid, c(plots_pc, ncol = 10, nrow = 5)),
  ncol = 1)
dev.off()

Спасибо за вашу помощь! Спасибо большое!