如何覆盖 contsurvplot 包中的两个 ggplot2 对象

一种可能的 Select 是从第二个ggplot2对象拉取数据并将其添加到第一个ggplot2对象，例如

library(survival)
library(survminer)
#> Loading required package: ggplot2
#> Loading required package: ggpubr
#> 
#> Attaching package: 'survminer'
#> The following object is masked from 'package:survival':
#> 
#>     myeloma
#options(timeout = 6000)
#install.packages("contsurvplot", dependencies = TRUE)
library(contsurvplot)

fit <- coxph(Surv(time, status) ~ age, data = lung, x = TRUE)
plot1 <- plot_surv_at_t(time = "time",
               status = "status", 
               variable = "age",
               data = lung, 
               model = fit, 
               t=60)

plot1

lung2 <- lung %>%
  mutate(CSS = sample(1:1000, 228))
fit2 <- coxph(Surv(CSS, status) ~ age, data = lung2, x = TRUE)
plot2 <- plot_surv_at_t(time = "CSS",
                        status = "status", 
                        variable = "age",
                        data = lung2, 
                        model = fit2,
                        t=60)
plot2

plot1 +
  geom_line(data = plot2$data,
            aes(x = cont, y = est),
            color = "red")

^{创建于2023-03-19年第reprex v2.0.2页}