Não consigo colorir as linhas de modelos diferentes com cores diferentes no seguinte modelo:
library(modelsummary)
url <- 'https://vincentarelbundock.github.io/Rdatasets/csv/palmerpenguins/penguins.csv'
dat <- read.csv(url)
# rescale mm -> cm
dat$bill_length_cm <- dat$bill_length_mm / 10
dat$flipper_length_cm <- dat$flipper_length_mm / 10
models <- list(
"Small model" = lm(bill_length_cm ~ flipper_length_cm, data = dat),
"Medium model" = lm(bill_length_cm ~ flipper_length_cm + body_mass_g, data = dat),
"Large model" = lm(bill_length_cm ~ flipper_length_cm + body_mass_g + species, data = dat))
modelplot(models, facet = TRUE)
o que resulta em
Eu tentei com
scale_fill_brewer(palette = "Set1", name = "term")
mas não parece funcionar
Você pode atingir o resultado desejado mapeando
model
nocolor
aes. Depois, você pode definir as cores desejadas usandoscale_color_brewer
ou ...