默认设置在图例中显示线条，但为了便于阅读，我更喜欢显示正方形或圆形。我当前的图例如下所示：
我希望它看起来更像这样：
我想我需要在我的脚本中添加这个，但是我不能像使用ggplot那样使用“+”。guides(alpha = guide_legend(override.aes = list(shape = 16) ) )
guides(alpha = guide_legend(override.aes = list(shape = 16) ) )
gmol16391#
以下是一个可能的解决方案：
library(survival) library(survminer) #> Loading required package: ggplot2 #> Loading required package: ggpubr #> #> Attaching package: 'survminer' #> The following object is masked from 'package:survival': #> #> myeloma fit <- survfit(Surv(time, status) ~ sex, data = lung) ggsurvplot(fit, data = lung)
ggplot1 <- ggsurvplot(fit, data = lung)$plot ggplot1 + guides(color = guide_legend(override.aes = list(shape = 16, linetype = c(NA, NA))))
创建于2022年12月2日，使用reprex v2.0.2
1条答案
按热度按时间gmol16391#
以下是一个可能的解决方案：
创建于2022年12月2日，使用reprex v2.0.2