with the liberary(modelsummary) I try to plot (modelplot) several models. From the vingette https://modelsummary.com/vignettes/modelplot.html I can see, that if I want to color according to sgfnifican levels, its done like:

data(mtcars)

lm1 <- lm(mpg~disp+hp, data = mtcars)
lm2 <- lm(mpg~disp+wt, data = mtcars)
lm3 <- lm(mpg~disp+qsec, data = mtcars)


modelplot(lm2 )+aes(shape = model,
                     color = ifelse(p.value < 0.001, "Significant", "Not significant"))

However, this will not work when I try to plot several models like:

modelplot(list(lm1, lm2, lm3))  +aes(shape = model,
                                    color = ifelse(p.value < 0.001, "Significant", "Not significant"))

In this case, shape parameter works, but not the color parameter. Does anyone has a workaround for that? Thank you.

Edit: It works when I use facet = TRUE, but this is not what I intend to do.