r - 自定义 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

而不是默认的紫色，我想按组自定义置信区间颜色，这样所有六个组（LA、LB、MA、MB、HA、HB）都会有不同颜色的置信区间。我还想自定义估计均值的形状，而不是将它们全部作为黑点。

这是我尝试过的，但没有奏效。

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，并保存结果，这是一个包含所有绘图信息的数据框。然后你可以用任何你想要的方式绘制这些东西。