emmeans：使标记意味着更大
emmeans: Make labeled means bigger
我想把附图中圈出的EMM做大一点。看起来只是增加 y 轴标签字体大小不会改变每个 wool:tension 组合旁边的颜色编码标签。感谢您的关注。
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)
这可以通过 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)
我想把附图中圈出的EMM做大一点。看起来只是增加 y 轴标签字体大小不会改变每个 wool:tension 组合旁边的颜色编码标签。感谢您的关注。
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)
这可以通过 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)