Survminerでの生存プロット - 空白プロット

Question

現在、生存者用のrmarkdownチャンク出力に表示されているブランクプロットに問題があります。下の画像をご覧ください。

レポートを作成しようとしているとき、それは巨大な空きスペースが含まれてように、それは出力が困難になります。

私はこの問題を調査してきたと私は、この印刷「NEWPAGE」引数に関係することにそれを絞り込むました -

私の質問は - することができます誰でもここで何が起こっているのかを説明してください。 - なぜ「空白」のプロットがあり、どのように表示されないのですか？ - 最初のプロットではnewpage = F、2番目のプロットでは空白ページが表示されないようにnewpage = Tを指定したときに、正確に何が起こっていますか？ - 最初のブランクプロットを表示しない方法はありますか？

ありがとうございました！

EDIT：

再現例 -

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)