如何在ggplot2中对X轴特定区间进行拉伸显示？

问题背景 #

你有如下数据框：

df <- data.frame(tw = rep(c(1:30), each = 3),
                 name = rep(c("spec1", "spec2", "spec3"), each = 1),
                 id = rep(c(1:10), each = 90),
                 value = sample(x = 0:100, size = 900, replace = TRUE))

其中tw代表时间窗口，但间隔不均匀：tw1至25为每500年一个区间，tw26至30为每1500年一个区间。

当前使用ggplot绘图时，X轴按tw的序号均匀分布，无法体现实际时间间隔的差异。尝试手动指定刻度标签的方式仅能隐藏部分刻度，无法拉伸区间间距。

解决方案：基于实际时间值映射X轴 #

核心思路是将tw序号转换为对应的实际时间数值，让ggplot根据实际时间的间距自动调整X轴刻度，而非使用tw序号作为X轴变量。

步骤1：创建tw与实际时间的映射表 #

根据你的时间间隔规则，计算每个tw对应的实际时间（这里以tw=1为最近时间点，设为0年，数值越大代表时间越早）：

# 构建tw到实际时间的映射（单位：年）
time_map <- data.frame(
  tw = 1:30,
  actual_time = c(
    seq(0, 24*500, by = 500),  # tw1-tw25：每500年递增
    seq(25*500, 25*500 + 4*1500, by = 1500)  # tw26-tw30：每1500年递增
  )
)

# 合并映射表到原数据框
df <- merge(df, time_map, by = "tw")

步骤2：修改ggplot绘图代码 #

使用转换后的actual_time作为X轴变量，同时可自定义刻度标签显示tw编号或实际时间：

library(ggplot2)
ggplot(df, aes(x = actual_time, y = value, group = interaction(id, name), colour = name)) +
  geom_line(alpha = 0.15) +
  # 反转X轴，让更早的时间（数值更大）显示在左侧
  scale_x_reverse(
    breaks = time_map$actual_time,  # 刻度位置对应实际时间点
    labels = time_map$tw,  # 刻度标签显示tw编号，可替换为time_map$actual_time显示年份
    expand = c(0, 0)
  ) +
  scale_colour_manual(values = c("#ffa644", "#30460a", "#E64056")) +
  # 原vline对应tw25，即实际时间12000年的位置
  geom_vline(xintercept = time_map$actual_time[time_map$tw == 25], linetype = "dashed") +
  ylab("Percentage (%)") + 
  xlab("Time (tw编号)") +
  labs(colour = "Taxa") +
  theme_bw()

效果说明 #

处理后，tw26至30的X轴间距会是tw1至25的3倍（对应1500年/500年的间隔比例），准确反映实际时间跨度的差异。如果需要显示实际年份而非tw编号，只需将labels = time_map$tw替换为labels = paste(time_map$actual_time, "年前")即可。

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