使用 `ggsurvfit::ggsurvfit()` 绘制对数减对数图

Question

是否可以使用

ggsurvfit::ggsurvfit()

生成对数减对数图？

这是我想要制作的示例：

library(ggsurvfit)
temp <- survfit2(Surv(time, status) ~ adhere, data = df_colon)
plot(temp, fun = \(x) log(-log(x)))

但我不想使用

plot()

，而是想使用

ggsurvfit::ggsurvfit()

。我尝试了以下

temp$surv <- log(-log(temp$surv))
ggsurvfit(temp)

但它在情节开始时表现得很奇怪，因为生存曲线在时间 0 时为 1。

Answer 1

问题在于

ggsurvfit

假设

y

在零时刻的值为

1

。这对于生存曲线有意义，但对于转变后的曲线则不然。您可以将轴限制设置为仅包含实际存在的值，删除包含此假设的行。

ggsurvfit(temp) +
    scale_y_continuous(
        limits = (c(min(temp$surv), max(temp$surv)))
    )