R绘制动画Kaplan Meier图时如何扩展X轴方向绘图区域

核心原理 #

标签被截断是两个默认设置共同导致的：

• ggplot默认X轴上限位置的扩展边距不足，120周位置刚好落在绘图面板的右边界
• ggplot默认会裁切所有落在绘图面板边界外的图层元素，哪怕标签位置是预设好的正确相对位置
  之前尝试修改X轴范围、调整hjust/vjust无效，是因为要么改了轴刻度显示范围不符合需求，要么动了标签本身的相对位置，没有解决「面板裁切+边距不足」的核心问题。

修正步骤 #

• 保留原有标签的所有位置参数（hjust/vjust完全不动），确保标签相对位置不变
• 给X轴单独设置上限方向的扩展边距，不改动X轴的显示刻度范围（最大刻度仍为120周）
• 关闭坐标系统的面板裁切功能，允许标签显示在绘图面板边界外
• 给绘图区域右侧增加少量外边距，避免标签被画布边缘裁切

完整修正代码 #

# 加载依赖包
library(ggplot2)
library(gganimate)
library(survival)

# --------------- 原有数据构造逻辑可直接替换为你自己的数据集 ---------------
set.seed(123)
surv_df <- data.frame(
  time = c(rexp(120, rate = 0.01), rexp(120, rate = 0.008)),
  status = sample(c(0,1), 240, replace = T, prob = c(0.3,0.7)),
  sex = rep(c("男", "女"), each = 120)
)
km_fit <- survfit(Surv(time, status) ~ sex, data = surv_df)
km_data <- data.frame(
  time = km_fit$time,
  surv = km_fit$surv,
  sex = rep(c("女", "男"), km_fit$strata)
)
# 提取120周位置的曲线末端点用于打标签
end_labels <- km_data[km_data$time <= 120,]
end_labels <- end_labels[ave(end_labels$time, end_labels$sex, FUN = max) == end_labels$time,]

# --------------- 修正后的绘图部分 ---------------
p <- ggplot(km_data, aes(x = time, y = surv, color = sex, group = sex)) +
  geom_step(linewidth = 1) +
  # 原有标签层完全保留，不修改hjust/vjust
  geom_text(data = end_labels, 
            aes(label = scales::percent(surv, accuracy = 0.1)),
            size = 3.5,
            hjust = -0.2, vjust = 0.5) +
  # X轴设置：最大刻度固定为120周，仅给上限方向加12%的空白边距
  scale_x_continuous(
    name = "随访时间（周）",
    breaks = seq(0, 120, 20),
    limits = c(0, 120),
    expand = expansion(mult = c(0, 0.12))
  ) +
  scale_y_continuous(name = "生存率", limits = c(0,1)) +
  # 关闭面板裁切，允许边界外的标签正常显示
  coord_cartesian(clip = "off") +
  theme_classic() +
  # 给右侧加40pt外边距，避免标签被画布边缘切掉
  theme(plot.margin = margin(r = 40))

# 原有动画逻辑完全保留
anim <- p + transition_reveal(along = time)
animate(anim, nframes = 100, fps = 10, width = 700, height = 500)

避坑说明 #

• 不要直接把X轴limits上限改成130/140：会导致X轴出现120周以上的刻度，破坏原有的轴显示范围
• 不要调整标签的hjust值把标签往左挪：会改变标签和曲线末端的相对位置，不符合需求
• 如果标签字号更大，可以适当调大expansion里的mult值（比如改成0.15）和plot.margin里的r值（比如改成50），适配标签宽度即可

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