R 自定义emmeans图

我正在使用emmeans，希望学习如何自定义绘图

对于一个可复制的例子，我使用了warpbreaks数据

---

任何帮助都将不胜感激

最好使用plotIt=FALSE调用它，并保存结果，这是一个包含所有绘图信息的数据框。然后你可以用任何你想要的方式来描绘这些东西

最好使用plotIt=FALSE调用它，并保存结果，这是一个包含所有绘图信息的数据框。然后你可以用任何你想要的方式来描绘这些东西

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

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