gpt4 book ai didi

r - Survminer 的生存图 - 空白图

转载 作者:行者123 更新时间:2023-12-02 17:11:59 25 4
gpt4 key购买 nike

我目前遇到了 survminer 的 rmarkdown block 输出中出现空白图的问题。请参见下图。

enter image description here

它使输出变得困难,因为在尝试编写报告时它包含巨大的空白空间。

enter image description here

我一直在调查这个问题,并将范围缩小到与打印“newpage”参数有关 -

enter image description here

我的问题是 - 谁能解释一下这里到底发生了什么?- 为什么会有“空白”情节,我怎样才能不显示它?- 当我将第一个图的 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'
)

最佳答案

为了打印没有前导空白图的生存图,只需打印 ggsurvplot() 返回的 plot 对象。例如,

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

关于r - Survminer 的生存图 - 空白图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42479112/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com