Survminer 的生存圖 - 空白圖

Question

我目前在 survminer 的 rmarkdown 塊輸出中出現空白圖的問題。 請看下圖。

它使輸出變得困難，因為它在嘗試編寫報告時包含巨大的空白空間。

我一直在調查這個問題，並將其范圍縮小到與這個打印“新頁”的論點有關 -

我的問題是 - 誰能解釋一下這里到底發生了什么？ - 為什么有一個“空白”的情節，我怎么能不顯示它？ - 當我有第一個情節的 newpage = F 和第二個情節的 newpage = T 沒有空白頁顯示時，究竟發生了什么？ - 有沒有其他方法可以不顯示第一個空白圖？

謝謝！

編輯：

可重現的例子 -

require(survminer)
require(survival)

Data <- data.frame(
X = sample(1:30),
Y = sample(c(1,0), 30, replace = TRUE),
Z = sample(c(1,0), 30, replace = TRUE)
)

ggsurvplot(
 survfit(Surv(Data$X, Data$Y) ~ Data$Z),
 risk.table = T,
 break.time.by = 12,
 risk.table.fontsize = 3,
 font.tickslab = 10,
 font.x = 11,
 xlab = 'Time (Months)',
 font.y = 11,
 font.main = 11,
 legend = c(0.8, .9),
 legend.title = '',
 risk.table.height = .20,
 risk.table.title = element_blank(),
 censor = F,
 pval = T,
 pval.coord = c(6, .00),
 pval.size = 4,
 surv.scale = 'percent',
 risk.table.y.text = F,
 palette = 'Set1'
)

Answer 1

為了打印沒有前導空白圖的生存圖，只需打印ggsurvplot()返回的plot對象。 例如，

library(survival)
library(survminer)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
p <- ggsurvplot(fit, data = lung)
print(p$plot)

Answer 2

這似乎對我有用：

plot.new() 
print(p,newpage = FALSE)

如果情節有風險表，這也將起作用。 該解決方案比其他人建議的先執行plot(p$plot)然后執行plot(p$table)更好，因為表格和繪圖保持良好對齊。