r - 有没有办法在不改变结果的情况下翻转 ggsurvplot 上的 y 轴刻度？

Question

我正在使用生存分析来显示达到发展里程碑的个体/持续时间的比例，我想翻转 y 轴刻度，使其顶部为 0，底部为 1.00。我尝试使用 scale_y_reverse，但这也翻转了结果。我只希望轴刻度从 0-1 变化，同时保持第一张图的视觉效果。感谢您的帮助!!

ggsurvplot(spin_fit, data = spin.data, pval = TRUE, conf.int =  TRUE) 
ggplot2 <- ggsurvplot(spin_fit, data = spin.data, pval = TRUE)$plot
df1 <- data.frame(time=spin_fit$time, nRisk=spin_fit$n.risk, nRiskRel=spin_fit$n.risk/max(spin_fit$n.risk))  
ggplot2 + geom_point(aes(x=time, y=nRiskRel), data = df1, alpha=0.5, size=3)
ggplot2 + ylab("Proportion of Larvae Spinning Cocoon") ]

这是我添加到最后一行时发生的事情:ggplot2 + ylab("幼虫吐茧比例") + scale_y_reverse()

Answer 1

您可以尝试使用 scale_y_continuous设置您自己的休息时间和标签:

break_values <- c(0, 0.25, 0.5, 0.75, 1)
ggplot2 + scale_y_continuous(breaks = break_values,
                             labels = as.character(rev(break_values)))