R ggboxplot-未绘制图形的顶部

我一直在尝试使用与stat_compare_means（）关联的ggboxplot（）函数来绘制一系列的箱线图，但没有太大成功。当我不尝试修正x轴和y轴的极限时，我就能够在why I want中绘制所有东西。但是，我必须确定y轴的限制，以便使箱线图在不同区域/样本之间具有可比性。当我修正这些限制时，我的图的顶部部分被切断，我看不到平均值比较的显著性水平

我用于生成方框图而不固定y轴限制的代码如下：

p1 <- ggboxplot(temp3[which(temp3$Nucleus == "Bolivia"),], x = "Biome", y = 
"pH",
          color = "Biome", add = "jitter", shape = "Biome",
          palette = c("springgreen4", "blue", "gray50"))
p2 <- ggboxplot(temp3[which(temp3$Nucleus == "Brazil"),], x = "Biome", y = 
"pH",
                color = "Biome", add = "jitter", shape = "Biome",
                palette = c("springgreen4", "blue", "gray50"))
p3 <- ggarrange(p1 + stat_compare_means(comparisons=my_comparisons),
            p2 + stat_compare_means(comparisons=my_comparisons),
            labels = c("Bolivia", "Brazil"),
            ncol = 2, nrow = 1)

---

p1“我的比较”对象是一个列表，其中包含我要进行的成对比较。它是使用以下行生成的：my_Comparations您需要共享数据和结果（绘图）。我知道在这里可以看到更多。我的名声不好，不允许我这么做。。。
p1 <- ggboxplot(temp3[which(temp3$Nucleus == "Bolivia"),], x = "Biome", y = 
"pH",
          color = "Biome", add = "jitter", shape = "Biome",
          palette = c("springgreen4", "blue", "gray50"))
p2 <- ggboxplot(temp3[which(temp3$Nucleus == "Brazil"),], x = "Biome", y = 
"pH",
                color = "Biome", add = "jitter", shape = "Biome",
                palette = c("springgreen4", "blue", "gray50"))
p1.1 <- ggpar(p1, ylim = c(3,9), ylab = "pH")
p2.1 <- ggpar(p2, ylim = c(3,9), ylab = "pH")
p3 <- ggarrange(p1.1 + stat_compare_means(comparisons=my_comparisons),
            p2.1 + stat_compare_means(comparisons=my_comparisons),
            labels = c("Bolivia", "Brazil"),
            ncol = 2, nrow = 1)