如何计算行的总和适用于每个主题并除以 R 中的数字？

问题描述

我正在尝试计算 R 中的总和或一行除以组号并将其应用于每个主题 (n = 102)。例如，在excel表中，我试图计算在水果类别（有机= 1，非有机= 0）中选择有机食品的倾向。为了计算这一点，我将一排香蕉 + 苹果的答案加在一起，然后除以 2，然后在该主题的其余部分应用相同的公式。我可以通过使用函数 SUM(X1:X2)/2 在 excel 中做到这一点。我如何在 R 中执行此操作？

我在下面附上了一张图片。

image example of excel

解决方法

如果我理解正确，您想按行求和并将每个总和除以当前行号，是吗？

sums <- rowSums(data)
divided_sums <- sums / (1:nrow(data))

如果您只想除以组数（我假设您指的是数据中的列数），那么只需执行以下操作：

sums <- rowSums(data) / ncol(data)