Ggplot图：geom_point的颜色点和组的颜色趋势线答案

【问题标题】：Ggplot graph: colour points by geom_point and colour trendlines by groupGgplot图：geom_point的颜色点和组的颜色趋势线
【发布时间】：2021-06-26 03:17:43
【问题描述】：

我正在尝试为原始数据点着色，但当我已经按组定义颜色时，我似乎无法找到有关如何执行此操作的信息。

数据：

data = read.csv('TotMaxSize.csv')
structure(list(Column1 = 1:6, yrblock15 = c(2004L, 2004L, 2004L, 
2004L, 2004L, 2004L), circleID = 1:6, ThreeYearRain = c(748.9863518, 
744.4805429, 748.6081666, 747.5941999, 746.3382951, 740.9514718
), time = c(5.270172597, 4.270172617, 3.348596103, 3.019112219, 
2.905252281, 2.773856447), claylake = c(0, 0, 0, 0, 0.01, 0), 
    spinsandplain = c(99.53, 90.39, 50.7, 63.8, 73.65, 82.73), 
    TotMaxSize = c(2058.592458, 936.2305886, 1652.692998, 2162.200459, 
    1062.143104, 1863.051545)), row.names = c(NA, 6L), class = "data.frame")

加载的包：

library(ggplot2);library(lme4);library(ggeffects);library(dplyr)

型号：

fit <- lmer(TotMaxSize~log(time)+spinsandplain+ThreeYearRain+claylake+ThreeYearRain*log(time)+(1|circleID),na.action=na.fail,data=data,REML=FALSE)

剧情：

mydf <- ggpredict(fit, terms = c("time[exp]","ThreeYearRain[647.6448,1198.882,1934.894]")) 
mydf1 <- rename(mydf, "time" = x, "TotMaxSize" = predicted)


ggplot(mydf1, aes(x = time, y = TotMaxSize, colour = group)) +
  geom_point(data = data, colour = "black")+
  stat_smooth(method = "lm", se = FALSE)+
  scale_colour_manual(values=c("skyblue2","dodgerblue3","darkblue"))+
  xlim(0,10)+ylim(0,7000)+
  xlab("time")+ylab("Max fire size")

它最终看起来像这样：

有没有办法通过变量“ThreeYearRain”为 geom_point 着色（渐变）？我不断收到与我读过的其他线程类似的错误：

"Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the existing scale."

【问题讨论】：

有点小技巧...但是您可以尝试通过更改点的形状并使用fill aes，即geom_point(data = data, aes(fill = ThreeYearRain), shape = 21, colour = "black")。否则请查看ggnewscale 包。
太棒了，谢谢！这完美无缺
很难重现的例子，但你试过plot(mydf)吗？

标签： r ggplot2 geom-point

【解决方案1】：

您已经定义了两次颜色：一次在 aes() 中，一次在 geom_point() 中。

【讨论】：