Jak zmieniać kolory linii i wstążek w facet_grid

Question

Mam nadzieję, że ktoś może pomóc w tym problemie z wykreślaniem, który mam. Dane można znaleźć here.

Zasadniczo chcę wykreślić linię (średnią) i związany z nią przedział ufności (dolny, górny) dla 4 modeli, które przetestowałem. Chcę aspekt na zmiennej Cat_Auth, dla których istnieją 4 kategorie (więc 4 działki). Pierwszy "model" jest w rzeczywistości tylko średnią z przykładowych danych i nie chcę dla tego CI (wartości NA określone w danych - nie wiem, czy to jest właściwa rzecz).

mogę dostać działkę jakiś sposób tam:

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) 

Ale chciałbym różne kolorowe linie i zacienione taśmy do każdego modelu (np czerwoną linię i średnią czerwoną wstążkę zacienione dla modelu 2, zielone dla modelu 3 itp.). Ponadto nie mogę zrozumieć, dlaczego niebieska linia odpowiadająca pierwszemu zestawowi wartości średnich jest rozłączna, tak jak jest.

Byłbym bardzo wdzięczny za każdą pomoc!

Answer 1

Spróbuj tego:

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)