重新排列行和列 + 使用 R 中的平均分数

Question

我有一个现在看起来像这样的数据集，其中每一行代表一个主题:

score   item1   item2   item3
50     always   never   some
60     some     always  never
70     never    some    always
80     always   never   some
90     some     never   always

我正在尝试创建一个表格，显示每个级别每个项目的得分平均值(即项目 1 的平均得分，总是？项目 1 的平均得分，一些？)
关于如何修改数据集的任何建议，使其看起来像这样:

       item1    item2   item3
always  mean#   mean#   mean#
some    mean#   mean#   mean#
never   mean#   mean#   mean#

谢谢!

Answer 1

以下是一些基本的 R 选项:

使用 stack + tapply

with(
  cbind(score = df$score, stack(df[-1])),
  tapply(score, list(values, ind), mean, na.rm = TRUE)
)

这使

        ind
values   item1    item2 item3
  always    65 60.00000    80
  never     70 73.33333    60
  some      75 70.00000    65

使用 lapply + tapply

do.call(
  cbind,
  lapply(df[-1], function(k) tapply(df$score, k, mean, na.rm = TRUE))
)

这使

       item1    item2 item3
always    65 60.00000    80
never     70 73.33333    60
some      75 70.00000    65