r - 当我只有一条线时更新 plot_model 的颜色？

Question

我想更改 plot_model 输出的绘图的颜色。当我通过在 terms = c(..., ...) 中包含多个变量来创建多行时，我没有遇到这些问题，但是当我执行以下代码时，我无法将颜色设置为黑色以外的任何颜色:

df_test <- data.frame('subj' = c('Joe', 'Joe', 'Moe', 'Moe'), 'A' = c(1, 0, 1, 0), 'B' = c(3, 2, 1, 4))

m = glmer(A ~ B + (B | subj), data=df_test, family='binomial')

print(plot_model(m, type='pred', colors = 'blue'))

输出:https://imgur.com/a/pApsmH4

我在这里错过了什么？

感谢帮助

Answer 1

为了执行此操作，我修改了 data.frame 的结构并使用了 ggplot2。

library(lme4)
library(ggplot2)
library(scales)
library(sjPlot)
df_test <- data.frame('subj' = c('Joe', 'Joe', 'Moe', 'Moe'), 'A' = c(1, 0, 1, 0), 'B' = c(3, 2, 1, 4))

m <- lme4::glmer(A ~ B + (B | subj), data=df_test, family='binomial')

p <- sjPlot::plot_model(m, type='pred', colors = 'blue')

df <- as.data.frame(p$B$data)
df
ggplot2::ggplot(df, aes(x = x)) +
  geom_ribbon(aes(ymin = conf.low, ymax = conf.high), fill = "grey70") +
  geom_line(aes(y = predicted), col = "blue") +
  scale_y_continuous(labels = scales::percent,
                     limits = c(0, 1))

ggplot2::ggplot(df, aes(x = x)) +
  geom_ribbon(aes(ymin = conf.low, ymax = conf.high), 
              fill = "deepskyblue", alpha = 0.25) +
  geom_line(aes(y = predicted), col = "darkred") +
  scale_y_continuous(labels = scales::percent,
                     limits = c(0, 1))