如何为ggplot2绘图添加边缘空白以避免显著性星号被截断？

问题描述 #

我有初始绘图，尝试用以下代码增大显著性星号尺寸后，星号被绘图边缘截断，调整plot.margin未解决问题，请问如何添加额外空白避免该情况？

使用的代码：

ggplot(data, aes(x = Cohort, y = C1M_HP, fill = Cohort)) + 
  geom_violin(width = 0.5) + 
  geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
  geom_signif(comparisons = list(c("Control","Dup")), map_signif_level=TRUE, textsize = 6.25) + 
  scale_fill_manual(values = c('#AED6F1', '#F1948A')) + 
  theme_minimal() + 
  geom_jitter(alpha = 0.8, width = 0.1)

解决方案 #

方法1：扩展y轴范围（最直接） #

plot.margin调整的是绘图区域外的空白，但星号被截断是因为它超出了当前y轴的上限范围。可以用expand_limits()手动抬高y轴上限，给星号留出空间：

ggplot(data, aes(x = Cohort, y = C1M_HP, fill = Cohort)) + 
  geom_violin(width = 0.5) + 
  geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
  geom_signif(comparisons = list(c("Control","Dup")), map_signif_level=TRUE, textsize = 6.25) + 
  scale_fill_manual(values = c('#AED6F1', '#F1948A')) + 
  theme_minimal() + 
  geom_jitter(alpha = 0.8, width = 0.1) +
  expand_limits(y = max(data$C1M_HP) * 1.1)  # 按数据上限的1.1倍扩展，可按需调整倍数

方法2：调整显著性标签的垂直位置 #

如果不想改变y轴范围，可以通过geom_signif的vjust参数向下调整标签位置，让它避开顶部边缘：

ggplot(data, aes(x = Cohort, y = C1M_HP, fill = Cohort)) + 
  geom_violin(width = 0.5) + 
  geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
  geom_signif(comparisons = list(c("Control","Dup")), map_signif_level=TRUE, textsize = 6.25, vjust = -0.5) +  # vjust为负数向下移
  scale_fill_manual(values = c('#AED6F1', '#F1948A')) + 
  theme_minimal() + 
  geom_jitter(alpha = 0.8, width = 0.1)

方法3：结合plot.margin与coord_cartesian #

如果一定要用plot.margin，需要配合coord_cartesian()的clip = "off"参数，让绘图区域外的元素显示出来：

ggplot(data, aes(x = Cohort, y = C1M_HP, fill = Cohort)) + 
  geom_violin(width = 0.5) + 
  geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
  geom_signif(comparisons = list(c("Control","Dup")), map_signif_level=TRUE, textsize = 6.25) + 
  scale_fill_manual(values = c('#AED6F1', '#F1948A')) + 
  theme_minimal() + 
  geom_jitter(alpha = 0.8, width = 0.1) +
  theme(plot.margin = margin(t = 20, r = 10, b = 10, l = 10, unit = "pt")) +  # 增大顶部边距
  coord_cartesian(clip = "off")  # 允许元素超出绘图区域显示

说明 #

• 方法1最推荐，因为它不会改变标签位置，只是给顶部留出足够空间，同时保持图表的完整性。
• 方法2适合不想调整轴范围的场景，但需要手动调整vjust的值找到合适位置。
• 方法3需要注意clip = "off"可能导致其他元素（比如超出轴范围的点）也显示出来，需按需使用。

内容的提问来源于stack exchange，提问作者bhumm