r - 如何在 facet_grid 中改变线条和色带颜色

Question

我希望有人可以帮助解决我遇到的这个绘图问题。资料可查here .

基本上，我想为我测试的 4 个模型绘制一条线(平均值)及其相关的置信区间(下、上)。我想对 Cat_Auth 变量进行分面，该变量有 4 个类别(因此有 4 个图)。第一个“模型”实际上只是样本数据的平均值，我不想要一个 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)