2017-02-27 32 views
2

我目前遇到空白情節出現在爲survminer的rmarkdown塊輸出的問題。請看下面的圖片。Survminer的生存空間 - 空白情節

enter image description here

它使輸出困難,因爲它擁有一個巨大的空白,同時試圖編寫報告。

enter image description here

我一直在調查這個問題,我已經將範圍縮小到有這個打印做「NEWPAGE」的說法 -

enter image description here

我的問題是 - 任何人都可以解釋究竟發生了什麼? - 爲什麼會出現「空白」情節,我怎麼能不顯示? - 當第一個plot的newpage = F和第二個plot的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' 
) 
+0

請出示一個MCVE:http://stackoverflow.com/help/how-to-ask,http://stackoverflow.com/a/5963610/4132844你是如何創建plot_anylocaltreatment和plot_aggressive ? – scoa

+0

我的歉意 - 我還是比較新的。我在上面的編輯中附加了一個可重複使用的示例。 –

回答

2

爲了打印不帶前導空白地塊生存情節,僅打印plot對象通過ggsurvplot()返回。例如,

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