ggplot2绘制双X轴箱线图报错：离散值传入连续刻度的解决方法

错误原因 #

你的代码报错是因为X轴用了离散型的因子（Samples是字符/因子类型），但调用了针对连续数值的scale_x_continuous，两者类型不兼容导致冲突。

解决方案 #

ggplot的副轴要求必须基于连续数值轴构建，所以需要先把离散的样本名称映射为连续的位置数值，再分别配置主、副轴的标签：

步骤1：构建样本与表达值的映射关系 #

先提取每个样本对应的唯一expression_intron值，并给每个样本分配连续的位置序号：

# 提取样本与intron表达的唯一对应关系
sample_intron_map <- unique(p[, c("Samples", "expression_intron")])
# 给每个样本分配连续的x轴位置（1、2...）
sample_intron_map$x_pos <- seq_along(sample_intron_map$Samples)

# 将映射关系合并到原数据框
p <- merge(p, sample_intron_map, by = c("Samples", "expression_intron"))

步骤2：绘制双X轴箱线图 #

用连续的x_pos作为X轴，分别设置主轴显示样本名、副轴显示对应的expression_intron值：

library(ggplot2)

ggplot(p, aes(x = x_pos, y = expression_gene)) +
  geom_boxplot(color = "black") +
  scale_x_continuous(
    # 主X轴配置
    breaks = sample_intron_map$x_pos,
    labels = sample_intron_map$Samples,
    name = "Samples",
    # 副X轴配置：与主轴位置完全对应，仅替换标签和名称
    sec.axis = sec_axis(
      ~ .,
      breaks = sample_intron_map$x_pos,
      labels = sample_intron_map$expression_intron,
      name = "expression_intron"
    )
  ) +
  labs(y = "expression_gene")

说明 #

因为你的数据中每个Samples对应的expression_intron是唯一值，所以这种位置映射是稳定的，不会出现标签错位问题。如果后续样本和intron表达的对应关系变化，只需重新生成sample_intron_map即可。

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