如何修改ggplot分面标签文本：替换点连接为自定义名称

问题说明 #

用ggplot或ggpubr包的ggboxplot绘图时，想要把分面的默认标签（如tensile.strength、strain.at.break）改成「Tensile Strength」和「Strain at break」，之前尝试的修改方法都没生效，还因为代码错误删掉了Y轴，刚接触R需要有效解决办法。

之前操作的问题点 #

1. 修改方向错误：把tensile.strength列转成因子改标签，这是修改列内数值的显示样式，和分面标签完全不相关。
2. Y轴被误删：代码里的yaxt = "n"会直接隐藏Y轴刻度，这就是Y轴消失的原因。
3. 数据格式处理不当：用y=c(tensile.strength,strain.at.break)的方式无法让绘图函数正确识别多列数据做分面，需要调整数据格式或用专属参数处理。

正确解决方案 #

方法1：用ggboxplot（ggpubr包）直接修改分面标签 #

ggboxplot的combine=TRUE本质是自动分面，通过labeller参数配合自定义标签映射就能修改分面名称，同时去掉yaxt="n"恢复Y轴：

# 加载必要的包
library(ggpubr)

# 保留你之前正确的步骤：把K.bar转成因子
data$K.bar <- as.factor(data$K.bar)

# 定义分面标签的映射关系
facet_labels <- list(
  tensile.strength = "Tensile Strength",
  strain.at.break = "Strain at break"
)

# 绘制箱线图，修改分面标签并恢复Y轴
ggboxplot(
  data = data,
  x = "sample",
  y = c("tensile.strength", "strain.at.break"),
  fill = "K.bar",
  combine = TRUE,
  xlab = "Sample",
  ylab = "Measurement Value",  # 设置统一的Y轴标签
  # 应用自定义分面标签
  labeller = labeller(.cols = facet_labels)
)

方法2：转成数据长格式后用ggplot绘图（更灵活） #

如果想用原生ggplot，需要先把宽格式数据转成长格式（借助tidyr包），再通过分面参数自定义标签：

# 加载必要的包
library(ggplot2)
library(tidyr)

# 把宽格式数据转成长格式，方便分面绘图
data_long <- pivot_longer(
  data,
  cols = c(tensile.strength, strain.at.break),  # 选择需要分面的指标列
  names_to = "measure",  # 新列：存储指标名称（原列名）
  values_to = "value"    # 新列：存储指标对应的数值
)

# 定义分面标签映射
facet_labels <- c(
  "tensile.strength" = "Tensile Strength",
  "strain.at.break" = "Strain at break"
)

# 绘制箱线图
ggplot(data_long, aes(x = sample, y = value, fill = K.bar)) +
  geom_boxplot() +
  # 分面并应用自定义标签
  facet_wrap(~measure, labeller = labeller(measure = facet_labels)) +
  labs(x = "Sample", y = "Measurement Value") +
  theme_bw()

额外提示 #

• 如果想让每个分面有独立的Y轴范围和标签，可以在facet_wrap里添加scales = "free_y"参数。
• 不需要修改原始数据的列名，通过标签映射就能实现分面标签的修改，不会破坏原始数据结构。

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