自定义 emmeans 图

Question

我正在使用 emmeans 并想了解如何自定义图表。

对于可重现的示例，我使用的是 warpbreaks 数据。

library(emmeans)
lm <- lm(breaks ~ wool * tension, data = warpbreaks)
emm <- emmeans(lm, ~ wool | tension)
plot <- plot(emm, horizontal=FALSE, comparisons=TRUE) + theme_bw()
plot

我想按组自定义置信区间颜色，而不是默认的紫色，这样所有六个组（L-A、L-B、M-A、M-B、H-A、H-B）都会有不同颜色的置信区间。我还想自定义估计均值的形状，而不是将它们全部设为黑点。

这是我尝试过的方法，但没有用。

plot + 
scale_color_manual(values=c("#F8766D", "#B79F00", "#00BA38", "#00BFC4", "#619CFF", "#F564E3")) + 
scale_shape_manual(values=c(1,2,3,4,5,6))

如有任何帮助，我们将不胜感激！

Answer 1

最好的办法是用 plotIt=FALSE 调用它并保存结果，这是一个包含所有绘图信息的数据框。然后你可以随心所欲地绘制这些东西。

自定义 emmeans 图

Customizing emmeans plot

r

emmeans