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

这可以通过emmeans::pwpp的aes参数实现，该参数允许设置标签、点和线段的大小(参见?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)

​

​