2017-02-27 92 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)