定制情节图

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进行调用，然后保存结果，这是一个包含所有绘图信息的数据框。然后，您可以按照自己的方式绘制这些东西。