这个生存曲线图怎么改啊

img

就是上图和下图的高低风险颜色对不上,要怎么改啊

我的代码是
text <- paste0(" p=0.004\nHR = 1.59 (95% CI:1.16-2.19)")#5年
ggsurvplot(fit1, data =data,
conf.int = F,
pval = text,
pval.coord = c(100, 5),
pval.size = 4,
fun = "pct",
risk.table = T,
size = 1,
linetype = "strata",
palette = c("#FC4E07",
"#00AFBB"),legend.title = "Risk score", legend.labs = c("High risk",
"Low risk") )