r - 分割表のセルの新しい変数の平均を計算する

Question

プロット内の色付きのバブルを使用して、リッカート尺度の評価データを要約しようとしています。現在、私が伝えようとしているものにニアミスを提供する、ジッタリングされたファセット散布図に重ねられたバイオリン プロットがあります。

理想的には、リッカート スケールの各ポイントにバブルを表示し、そのスコアを持つアイテムの数 (または比率) でサイズを調整し、spKnownShown 変数の平均値で影を付けます。リッカート ファセット x 軸の組み合わせの分割表を作成するのは簡単ですが、各セルを spKnownShown の平均値にリンクするにはどうすればよいでしょうか? 分割表から実際のプロットに次の飛躍をもたらすための推奨事項をいただければ幸いです。

機密保持契約に基づいているため、データを共有できないことをお詫びします。

Answer 1

dplyrパッケージの関数の使用を検討してください。最初に偽のデータセットを作成します。ここで、x、y、v、および f は、x 軸、Likert、平均を求める値、およびファセットにそれぞれ対応します。

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))

必要な値を作成するには、 usinggroup_byとsummarisefromを組み合わせdplyrます。

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")