r - 你如何翻转ggsurvplot中的坐标？

Question

我试图为我的生存分析图翻转 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

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

Answer 1

您可以通过使用“$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()）：