我想在ggsurvplot中指定结束时间，如下所示注解生存曲线的端点，但这会导致number-at-risk表中最右边的文本被截断，请参见下面的代码和输出图形，注意在图形中，最右边的值是20和21，但您看到的只是2和2。
如果我增加右侧x轴限值（将xlim=c(-50, time_cutoff)替换为xlim=c(-50, time_cutoff+50)），则风险表文本不会被剪切，但生存曲线也会绘制到time_cutoff+50，并且我在生存曲线右侧显示的标签不会与生存曲线的端点对齐。
如果我只为风险表设置clip ='off'，我会打印超过xlim截止值的额外值。

library(survival)
library(survminer)

fit<- survfit(Surv(time, status) ~ sex, data = lung)

# Customized survival curves
my_plot = ggsurvplot(fit, data = lung,
 # Add p-value and tervals
 risk.table = TRUE,
 tables.height = 0.2,
 break.x.by=100,
 ggtheme = theme_bw() # Change ggplot2 theme              
)

time_cutoff = 400
xticks = c(0, 100, 200, 300, 400)

survs = summary(fit, times=time_cutoff)$surv
labels = paste(round(survs*100), '% this label is really long', sep='')
  
my_plot$plot <- my_plot$plot + 
                coord_cartesian(ylim=c(0,1), xlim = c(-50,time_cutoff), clip = 'on', expand=FALSE) +
                scale_x_continuous(name=NULL, breaks = xticks) +
                scale_y_continuous(name=NULL, sec.axis=sec_axis(~., name=NULL, breaks = survs, labels= labels))  +
                theme(
                  panel.border = element_blank(),
                  axis.line.y.left = element_line(color = 'black'),
                  axis.line.x.bottom = element_line(color = 'black'),
                )

table_ylim = ggplot_build(my_plot$table)$layout$panel_params[[1]]$y.range
my_plot$table <- my_plot$table + 
                coord_cartesian(ylim=table_ylim, xlim = c(-50,time_cutoff), clip = 'on', expand=FALSE) +
                scale_x_continuous(name=NULL, breaks = xticks) +
                theme(panel.border = element_blank())
library(patchwork)
(my_plot$plot / my_plot$table) + plot_layout(heights = c(3,1))

x1c 0d1x现在仅针对风险表使用clip ='off'：

另请参见this带有短标签的类似问题