你如何翻转ggsurvplot中的坐标？

问题描述

我正在尝试为我的生存分析图翻转 x 和 y（使用survminer 包），但是当我将 coord_flip() 添加到这行代码时：

ggsurvplot(poop_fit,data = egg.data,pval = TRUE,conf.int = TRUE,coord_flip())

我收到此错误：

Error in .apply_surv_func(df,fun = fun) : Invalid 'fun' argument

有谁知道在生存分析中是否有另一种翻转坐标的方法？

解决方法

您可以通过使用“$plot”访问图来访问/操作图，例如ggsurvplot(fit,data = lung)$plot。例如：

require("survival")
require("survminer")

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

ggplot1 <- ggsurvplot(fit,data = lung)$plot
df1 <- data.frame(time=fit$time,nRisk=fit$n.risk,nRiskRel=fit$n.risk/max(fit$n.risk))  
ggplot1 + geom_point(aes(x=time,y=nRiskRel),data = df1,alpha=0.5,size=3)
ggplot1 + coord_flip()

预翻转（无 + coord_flip()）：

后翻转（使用 + coord_flip()）：