robertspierre

Asked: 2025-02-25 04:36:19 +0800 CST2025-02-25 04:36:19 +0800 CST 2025-02-25 04:36:19 +0800 CST

分面模型图中不同模型有不同的颜色

在以下模型中，我似乎无法用不同的颜色为不同模型的线条着色：

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)

结果是

我尝试过

scale_fill_brewer(palette = "Set1", name = "term")

但似乎不起作用

1 个回答

Voted

Best Answer

2025-02-25T05:00:21+08:002025-02-25T05:00:21+08:00
model您可以通过在 aes上进行映射来实现所需的结果color。之后，您可以使用或设置所需的颜色scale_color_brewer...

library(modelsummary) library(ggplot2) modelplot(models, facet = TRUE) + aes(color = model) + scale_color_brewer(palette = "Set1")
3