是否有可能使用ggsurvfit::ggsurvfit()生成对数-负-对数曲线图？
这是我想制作的一个例子:
library(ggsurvfit)
temp <- survfit2(Surv(time, status) ~ adhere, data = df_colon)
plot(temp, fun = \(x) log(-log(x)))
但我不想用plot()，我想用ggsurvfit::ggsurvfit().我try 了以下几种方法
temp$surv <- log(-log(temp$surv))
ggsurvfit(temp)
但它在情节开始时表现得很奇怪，因为在时间0的生存曲线是1.
问题是，ggsurvfit()假设时间为零的时候是y=1.这对于生存曲线来说是有意义的--你不能对已经死亡的人的生存进行建模--但如果你改变y轴就不是这样了.
要解决这个问题，因为ggsurvit()会生成ggplot对象，您只需将轴限制设置为仅包括实际存在的值，即可删除包含此假设的行.我也会更改y轴标签.
ggsurvfit(temp) +
scale_y_continuous(
limits = (c(min(temp$surv), max(temp$surv)))
) +
labs(
y = "log(-log(surival probability))"
)
