如何改变facet_grid中的线条和色带颜色

Question

我希望有人可以帮我解决这个密谋问题。可以找到数据here。

基本上我想绘制一条线（平均值）以及我测试的4个模型的相关置信区间（下限，上限）。我想面对Cat_Auth变量，其中有4个类别（所以4个图）。第一个＆＃39;模型＆＃39;实际上只是样本数据的平均值，我不想要CI（数据中指定的NA值 - 不确定这是否正确）。

我可以通过以下方式获得情节：

newdata <- read.csv("data.csv", header=T)
ggplot(newdata, aes(x = Affil_Max, y = Mean)) + 
  geom_line(data = newdata, aes(), colour = "blue") +
  geom_ribbon(data = newdata, alpha = .5, aes(ymin = Lower, ymax = Upper, group = Model, fill = Model)) +
  facet_grid(.~ Cat_Auth)

但是我喜欢每种型号的不同颜色的线条和阴影色带（例如，模型2的红色平均线和红色阴影带，模型3的绿色等）。另外，我无法弄清楚为什么与第一组平均值相对应的蓝线是不相连的。

非常感谢任何帮助！

Answer 1

试试这个：

library(dplyr)
library(ggplot2)

newdata %>%
  mutate(Model = as.factor(Model)) %>%
  ggplot(aes(Affil_Max, Mean)) + 
    geom_line(aes(color = Model, group = Model)) +
    geom_ribbon(alpha = .5, aes(ymin = Lower, ymax = Upper, 
                                group = Model, fill = Model)) +
    facet_grid(. ~ Cat_Auth)