我有一个包含三组(在本例中为土壤样本)的数据集,每组都包含两个深度类别的测量值。我想为每个组使用相同的颜色,但深度使用不同的形状。我通过使用深度进行着色和形状,然后结合图例来实现这一点。
但现在我想使用与 geom_point 相同的颜色设置一个额外的 geom_smooth。对于geom_smooth,我需要将组参数设置为样本组(而不是深度),但我无法为geom_smooth 设置新的scale_col_manual。
df <- data.frame(X=runif(24, 0,1), Y=runif(24,80,100), Depth=as.factor(LETTERS[1:6]),
Group=as.factor(LETTERS[1:3]))
labels <- c("A", "A", "B", "B", "C", "C")
library(ggplot2)
p1 <- ggplot(df, aes(X,Y,shape=Depth, col=Depth)) +
geom_point() +
scale_colour_manual(labels = labels ,
values = c("blue", "blue", "red", "red", "green", "green")) +
scale_shape_manual(labels = labels,
values = c(0,15,1,16, 2, 17))
p1
p1 + geom_smooth(aes(group=Group), method="lm", show.legend = F)
根据上面使用的颜色,geom_smooth 显示的回归线应该使用c("blue", "red", "green")
。我有办法实现这一目标吗?