R 我如何在我的情节中显示图例？

我正在尝试使用自己的数据将图例添加到绘图中

rich_ph <- ggplot(CR_ph) + 
  geom_jitter(aes(ph,all.fungi), colour="pink") +   
  geom_smooth(aes(ph,all.fungi), color="pink", method=lm, se=FALSE) +
  geom_jitter(aes(ph,Animal.parasite), colour="blue") + 
  geom_smooth(aes(ph,Animal.parasite), color="blue", method=lm, se=FALSE) +
  geom_jitter(aes(ph,Plant.Pathogen), colour="green") + 
  geom_smooth(aes(ph,Plant.Pathogen),color= "green", method=lm, se=FALSE) 

我试过使用

 scale_color_manual(labels = c("disp", "hp", "qsec"), values = c("blue","green", "red"))

如其他帖子所示，但对我来说，问题是在情节上什么都没有显示。我也尝试过：

丰富的ph值+比例颜色手册（名称=“功能组”，标签=c（“所有真菌”、“动物寄生虫”、“植物病原体”），数值=c（“粉色”、“蓝色”、“绿色”）在此处输入代码

---

我想得到颜色点和回归线，但使用脚本时，我没有得到任何输出。非常感谢您的帮助！

推荐的

ggplot2

方法是在打印之前很久生成数据。 在这里，我使用

tidyverse

进行数据转换，并使用

collect

使数据变长。接下来将自动绘制适当的图例

library(tidyverse)
mtcars %>% 
  as.tibble() %>% 
  select(mpg, disp, hp, qsec) %>% 
  gather(key, value, -mpg) %>% 
  ggplot(aes(y=mpg, x=value, color=key)) +
    geom_point() +
    geom_smooth(method=lm, se=FALSE)

---

添加

scale\u color\u手册（值=c（“蓝色”、“绿色”、“红色”））

将根据需要更改颜色。

现在，它工作得非常好！非常感谢，这确实是我一直在寻找的解决方案！

library(tidyverse)
mtcars %>% 
  as.tibble() %>% 
  select(mpg, disp, hp, qsec) %>% 
  gather(key, value, -mpg) %>% 
  ggplot(aes(y=mpg, x=value, color=key)) +
    geom_point() +
    geom_smooth(method=lm, se=FALSE)