R语言火山图出现颜色不对

R语言绘制火山图，出现这样的情况，不晓得怎么解，或者说怎么理解

补充一下代码：

ggplot(res_2,aes(x=log2FoldChange,y=-log10(pvalue)))+
  geom_point(aes(color=group))+
  scale_color_manual(values=c("dodgerblue","gray","firebrick"))

问题已解决，前面的up和down的标签贴错了

library(dplyr)
res_1 %>%
  mutate(group = case_when(
    log2FoldChange >= 2 & pvalue <= 0.05 ~ "UP",
    log2FoldChange <= -2 & pvalue <= 0.05 ~ "DOWN",
    TRUE ~ "NOT_CHANGE"
  )) -> res_2