空白页ranging_ggsurvplots Rstudio

Question

使用功能ranging_ggsurvplots（）以便以2x2表示形式包含4个ggsurvplot（），但是使用此功能，它将在绘制4组图形之前绘制空白页面。

我构建了4种不同的survfit：

fit_1 <- survfit(Surv(...) ~ ..., data = data_1)
splots[[1]] <- ggsurvplot(fit_1,...)

为了安排所有事情：

arrange_ggsurvplots(splots, print = TRUE,
                ncol = 2, nrow = 2) 

谢谢!!

Answer 1

您需要将图另存为对象，然后使用ggsave()将其保存到磁盘：

myplots_out <- arrange_ggsurvplots(
  myplots,
  print = FALSE,
  ncol = 2,
  nrow = 2,
  title = "MySuperPlots")

ggsave(
  myplots_out,
  file = "Results/Survival.pdf",
  width = 10.5,
  height = 5)

这将避免在输出文件中生成空白首页。