计算列联表单元格的新变量的平均值

Question

我正在尝试用绘图中的彩色气泡总结李克特量表评级数据。我目前有一个小提琴图覆盖在一个抖动的多面散点图上，这为我试图传达的内容提供了一个近距离的失误。

理想情况下，我会为李克特量表上的每个点设置气泡，大小由具有该分数的项目的数量（或比例）决定，并由 spKnownShown 变量的平均值着色。为 Likert-facet-x-axis 组合制作列联表很简单，但是如何将每个单元格链接到 spKnownShown 的平均值？任何有关从列联表中将下一个飞跃变为实际情节的建议将不胜感激。

很抱歉我不能分享这些数据，因为它是根据保密协议。

Answer 1

考虑使用 dplyr 包中的函数。我首先制作了一个假数据集，其中 x、y、v 和 f 分别对应于 x 轴、Likert、您想要平均值的值和 facet。

library(ggplot2)
library(dplyr)
n <- 1000
set.seed(1)
d <- data.frame(x = sample(0:1, n, r = T),
                y = pmin(rpois(n, 2), 6),
                v = rnorm(n),
                f = sample(0:2, n, r = T))

创建您想要的值是使用来自dplyr 的group_by 和summarise 的组合：

plt <- d %>% group_by(f, x, y) %>%
  summarise(n = n(), v = mean(v))

最后，剧情：

ggplot(plt, aes(x = factor(x), y = factor(y), size = n, colour = v)) +
  geom_point() +
  facet_wrap("f")