ggsurvplot图改变置信区间线的大小

Question

尝试用ggsurvplot改变我的置信区间的线大小。当我使用将大小更改为1或2时，它只影响中心线的大小，而不影响置信区间线的大小。对于如何改变这些线路的大小，有什么建议吗？

这是我的代码：

ggsurvplot(ovlsfit,
                  surv.scale="percent",
                  title="Survival Curve",
                  xlim=c(-0.02,5.1),
                  xlab=c("Time (y)"),
                  break.x.by=1,
                  censor=FALSE,
                  axes.offset=FALSE,
                  conf.int.style=c("step"),
                  legend=c("none"),
                  linetype = "strata",
                  color="black",
                  size=0.8,
                  risk.table=TRUE,
                  risk.table.height=0.18,
                  risk.table.pos=c("out"),
                  risk.table.fontsize=4)

和产出：

​

​

Answer 1

让我们创建一个与您的模型类似的模型用于演示：

library(survival)
library(survminer)

ovlsfit <- survfit(Surv(time/660, status) ~ 1, data = colon)

现在我们将尝试重现你的情节：

p <- ggsurvplot(ovlsfit,
                surv.scale = "percent",
                title = "Survival Curve",
                xlim = c(-0.02,5.1),
                xlab = c("Time (y)"),
                break.x.by = 1,
                censor = FALSE,
                axes.offset = FALSE,
                conf.int.style = c("step"),
                legend = c("none"),
                linetype = 'strata',
                palette = "black",
                size = 0.8,
                risk.table = TRUE,
                risk.table.height = 0.18,
                risk.table.pos = c("out"),
                risk.table.fontsize = 4)

p

​

​

不幸的是，无法从调用ggsurvplot中直接访问置信区间线大小，但我们可以轻松地访问它们所在的层并直接更改行大小。在这里，我们将使它们更大，以供示范：

p$plot$layers[[3]]$aes_params$size <- 2
p$plot$layers[[4]]$aes_params$size <- 2

p

​

​