我正在使用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))
任何帮助，将不胜感激！