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

问题描述

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

ggsurvplot(spin_fit,data = spin.data,pval = TRUE,conf.int =  TRUE) 
ggplot2 <- ggsurvplot(spin_fit,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("Proportion of Larvae Spinning Cocoon") + scale_y_reverse()

解决方法

您可以尝试使用 scale_y_continuous 来设置您自己的中断和标签：

sum(aggregate(ind ~ values,stack(list(a = a,b = b,d = d)),FUN = length)$ind == 3)
#[1] 2