r - emmeans:标记意味着更大

Question

我想把附加图片中圈出的 EMM 放大。看起来只是增加 y 轴标签字体大小不会改变每个羊毛:张力组合旁边的颜色编码标签。感谢您的关注。

model <- lm(breaks ~ wool * tension, data = warpbreaks)

emm <- emmeans(model, c("wool", "tension"))[![enter image description here][1]][1]

pwpp(emm, type = "response") +
    theme_bw() + 
  geom_point(aes(size = 3)) + 
  theme(text = element_text(size = 25)) +
  scale_size(guide = F)

Answer 1

这可以通过 aes 实现emmeans::pwpp 的论据它允许设置标签、点和线段的大小(参见 ?emmeans::pwpp):

library(emmeans)
library(ggplot2)

model <- lm(breaks ~ wool * tension, data = warpbreaks)

emm <- emmeans(model, c("wool", "tension"))

pwpp(emm, type = "response", aes = list(label = list(size = 5))) +
  theme_bw() + 
  geom_point(aes(size = 3)) + 
  theme(text = element_text(size = 25)) +
  scale_size(guide = F)