我正在尝试使用我自己的数据为我的情节添加一个图例。
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)
我将在这里发布一个可重复的示例(出现在旧帖子中),我遵循它来构建我的情节:
ggplot(mtcars) +
geom_jitter(aes(disp,mpg), colour="blue") +
geom_smooth(aes(disp,mpg), method=lm, se=FALSE) +
geom_jitter(aes(hp,mpg), colour="green") +
geom_smooth(aes(hp,mpg), method=lm, se=FALSE) +
geom_jitter(aes(qsec,mpg), colour="red") +
geom_smooth(aes(qsec,mpg), method=lm, se=FALSE) +
labs(x = "Percentage cover (%)", y = "Number of individuals (N)")
我已经尝试过使用
scale_color_manual(labels = c("disp", "hp", "qsec"), values = c("blue","green", "red"))
如其他帖子所示,但对我来说问题是图中没有显示任何内容。我也试过:
rich_ph + scale_colour_manual(name="Functional groups", labels = c("所有真菌", "动物寄生虫", "植物病原体"), values=c("粉色", "蓝色", "绿色")在此处输入代码
我想获得色点以及回归线,但是使用我使用的脚本,我没有得到任何输出。非常感谢您的帮助!
推荐的ggplot2
方法是在绘图前长时间制作数据。在这里,我使用tidyverse
for 数据转换gather
并使数据变长。在此之后将自动绘制适当的图例。
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_color_manual(values = c("blue", "green", "red"))
将根据需要更改颜色。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句