如何在R语言ggplot2 facet_wrap分面中为条形添加独立统计显著性文本及解决轴截断问题

分面下独立显著性文本的实现 #

当前代码的标签功能存在两个核心缺陷：

• 全局赋值的bar_labels仅关联品种名称，未绑定h.names分面维度，所有分面下同一品种会显示完全一致的标记，无法实现不同感官指标分面的独立标注。
• 文本直接绑定全局绘图数据，未单独控制垂直位置，轴翻转后易出现文本与柱体重叠、超出绘图区域被裁切的问题。

修正逻辑：

• 单独构建标签数据集，明确映射「x轴品种位置、所属分面、标签文本、文本放置的y轴坐标」四个维度，传入geom_text()的独立data参数。
• 将文本位置设置为对应条形数值高度+0.2的偏移量，保证文本显示在条形顶端，避免与柱体遮挡。

最右侧分面轴文本截断的原因 #

• 手动硬编码scale_y_continuous(limits = c(0,9))，分面自动排布时最右侧分面靠近画布边缘，加上换行的长刻度标签“Like\nExtremely”没有预留显示空间，会被画布边缘直接裁切。
• 默认的坐标轴扩展参数未给长标签留出版距，配合coord_flip()的轴翻转特性，进一步放大了边缘裁切的问题。

修正逻辑：

• 取消硬编码的limits约束，在scale_y_continuous()中通过expand参数为坐标轴上下留出足够边距。
• 在theme()中为整张图添加适当的plot.margin外侧留白，避免分面边缘的刻度标签被裁切。

修正后的可复现代码 #

library(viridis)
library(tidyr)
library(dplyr)
library(tibble)
library(ggplot2)

df <- data.frame(
  H1 = c(6.36, 3.03, 6.85, 4.07, 4.69, 6.27, 6.67, 3.11, 5.07, 6.14, 5.93, 6.49),
  H2 = c(5.15, 5.00, 5.71, 5.50, 4.99, 5.81, 6.05, 5.76, 5.28, 5.69, 5.69, 5.06),
  H3 = c(3.85, 5.13, 4.99, 4.91, 5.01, 5.73, 5.77, 5.94, 5.57, 5.35, 6.00, 4.39),
  H4 = c(3.84, 4.80, 5.15, 4.85, 4.99, 5.73, 5.77, 5.45, 5.44, 5.41, 5.81, 4.46),
  H5 = c(4.08, 5.17, 4.77, 5.03, 5.00, 5.49, 5.49, 5.80, 5.51, 5.18, 5.76, 4.60),
  H6 = c(4.35, 5.59, 5.59, 4.83, 5.52, 5.63, 5.85, 5.74, 5.66, 5.19, 5.79, 4.84),
  names = c("RB", "Ver", "Atl", "POR12PG28-3",
            "Valery", "Rio", "CO99076-6R", "Purple",
            "AC99330-1P/Y", "CO05068-1RU", "Masquerade", "Canela")
)

df <- df %>%
  pivot_longer(starts_with("H"), names_to = "h.names", values_to = "value")

names.labs <- c("Appearance", "Aroma", "Flavor", "Overall", "Aftertaste", "Texture")
names(names.labs) <- c("H1", "H2", "H3", "H4", "H5", "H6")

# 独立标签数据集，支持分面级别的独立显著性标注
label_df <- df %>%
  group_by(h.names, names) %>%
  summarise(y_pos = value + 0.2, .groups = "drop") %>%
  mutate(
    sig_label = case_when(
      h.names == "H1" & names == "Ver" ~ "ab",
      h.names == "H1" & names == "Valery" ~ "e",
      h.names == "H1" & names == "Rio" ~ "a",
      h.names == "H1" & names == "RB" ~ "d",
      h.names == "H1" & names == "Purple" ~ "cd",
      h.names == "H1" & names == "POR12PG28-3" ~ "ab",
      h.names == "H1" & names == "Masquerade" ~ "ab",
      h.names == "H1" & names == "CO99076-6R" ~ "e",
      h.names == "H1" & names == "CO05068-1RU" ~ "c",
      h.names == "H1" & names == "Canela" ~ "ab",
      h.names == "H1" & names == "Atl" ~ "b",
      h.names == "H1" & names == "AC99330-1P/Y" ~ "ab",
      # 其他分面的标签规则在此补充即可
      TRUE ~ ""
    )
  )

ggplot(data = df, mapping = aes(x = names, y = value)) +
  geom_col(fill = "#440154FF") +
  coord_flip() +
  scale_y_continuous(
    breaks = seq(0.0, 9, 3),
    expand = expansion(mult = c(0, 0.1)),
    labels = c("0", "3", "6", "Like\nExtremely")
  ) +
  labs(y = "", x = "") +
  theme(
    legend.title = element_blank(),
    axis.text.y = element_text(face = "bold", size = 11),
    axis.text.x = element_text(face = "bold", size = 9),
    plot.margin = margin(20, 20, 20, 20)
  ) +
  facet_wrap(~h.names, labeller = labeller(h.names = names.labs)) +
  geom_text(
    data = label_df,
    aes(x = names, y = y_pos, label = sig_label),
    hjust = 0,
    size = 3
  )

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