为什么 pval.size 被 ggsurvplot_facet 忽略了？

Question

为什么 pval.size 被 ggsurvplot_facet() 忽略了？

我正在尝试使用 ggsurvplot_facet() 更改生存图中 p 值文本的大小，但似乎忽略了对 pval.size 的调用。如果有人可以帮助我更改生存图中的 p 值大小，将不胜感激。

可重现的例子：

library(survival); library(survminer)

fit <- survfit( Surv(time, status) ~ sex, data = colon)

ggsurvplot_facet(fit, colon, facet.by = "rx", palette = "jco", pval = TRUE, pval.size = 20)

ggsurvplot_facet(fit, colon, facet.by = "rx", palette = "jco", pval = TRUE, pval.size = 1)

Answer 1

简单的回答是 pval.size 不是这个函数中的命名参数，当你传入它时函数不会对它做任何事情。

您必须更改函数体才能改变 pval 标签的大小。以下是如何创建采用 p 值大小参数的修改函数：

ggsurvplot_facet2 <- function(pval.size = 5, ...)
{
  newcall <- bquote(
    p <- p + geom_text(data = pvals.df, aes(x = pval.x, y = pval.y, 
    label = pval.txt), size = .(pval.size), hjust = 0)
    )

    body(ggsurvplot_facet)[[20]][[3]][[8]] <- newcall
    ggsurvplot_facet(...)
}

现在你可以做：

ggsurvplot_facet2(fit, colon, facet.by = "rx", palette = "jco", pval = TRUE, pval.size = 1)

这给出了这个：

那你可以做

ggsurvplot_facet2(fit, colon, facet.by = "rx", palette = "jco", pval = TRUE, pval.size = 10)

这给出了这个：

为什么 pval.size 被 ggsurvplot_facet 忽略了？

Why is pval.size ignored by ggsurvplot_facet?

error-handling

r

survival-analysis

survival

survminer