GGSURVLOT-将图例拆分为行

如何将图例拆分为多行？目前，图例图例绘制为一行，但我想将其输出为行，一个绘图上有5个地层

谢谢

survival <- survfit(Surv(Statustime, Status)~Strata, data=df1)
ggsurvplot(survival, legend = "bottom",conf.int = TRUE, pval = TRUE, risk.table = FALSE, xlim = c(0,180), break.time.by = 30)
ggsave("survival_ART.png", width = 5, height = 5)

---

survival我自己设法找到了答案——在这里提交，以防其他人发现这个问题并想知道答案是什么

ggsurvplot（生存，图例=“底部”，conf.int=TRUE，pval=TRUE，risk.table=FALSE）+指南（颜色=指南\图例（nrow=5））

其中nrow=层数。
请添加用于生成当前绘图和图例的代码。如果要将其拆分为列，请使用ncol