如何在ggplot2中使用scale_x_continuous复制离散X轴？

问题出在你用reorder生成的是离散因子类型，而scale_x_continuous仅支持连续数值型的x轴数据，直接替换刻度会触发类型不匹配错误，和排序操作无关。下面是修正后的可行方案：

步骤1：简化数据排序逻辑 #

先把鸟类名称按规则排序为因子，同时提取每个因子对应的连续数值位置：

library(ggplot2)
library(data.table)

birds <- data.frame(
  species_name = c("eagle", "eagle", "robin", "vulture", "bee-eater"),
  overall.percentage = c(12, 33, 19, 20, 15)
)

# 按每个物种的最小百分比排序
setDT(birds)[, min_pct := min(overall.percentage), by = species_name]
birds <- birds[order(min_pct)]
# 转换为排序后的因子（固定顺序）
birds$species_name <- factor(birds$species_name, levels = unique(birds$species_name))
# 将离散因子转为连续数值位置
x_positions <- as.numeric(birds$species_name)

步骤2：构建带双X轴的图表 #

将x轴映射为连续数值位置，再分别定义主、副轴的刻度和标签，确保和数据点完全对齐：

plot <- ggplot(birds, aes(x = x_positions, y = overall.percentage)) +
  geom_point(position = position_jitter(w = 0.25, h = 0)) +
  scale_x_continuous(
    # 底部主X轴
    breaks = unique(x_positions),
    labels = levels(birds$species_name),
    # 顶部副X轴
    sec.axis = dup_axis(
      name = NULL, # 可按需保留/移除顶部轴标题
      breaks = unique(x_positions),
      labels = levels(birds$species_name)
    )
  ) +
  xlab("鸟类物种") # 设置底部轴标题

plot

关键说明 #

• 把离散因子转换为as.numeric()的连续数值，让scale_x_continuous能正常识别x轴数据
• 用unique(x_positions)确保刻度位置和数据点的x坐标完全匹配
• dup_axis()可快速复制主轴配置，也能自定义顶部轴的标签或标题

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