R data.table：多列的平均值

Question

我想使用R 中的data.table 包来计算另一组列的许多列的列均值。我知道如何为几列执行此操作，我在下面提供了一个示例。但是，在我的非玩具示例中，我有数十个变量要为此执行此操作，并且我想从列名的向量中找到一种方法来执行此操作。这可能吗？

library(data.table)

# creates data table
dfo <- data.frame(bananas = 1:5, 
             melonas = 6:10,
             yeah = 11:15,
             its = c(1,1,1,2,2)
             )
dto <- data.table(dfo)

# gets column means by 'its' column
dto[,
.('bananas_mean' = mean(bananas),
  'melonas_mean' = mean(melonas),
  'yeah_mean' = mean(yeah)
  ),
by = .(its)]

Answer 1

使用data.table：

library(data.table)
d <- dto[, lapply(.SD, mean), by=its]

d

   its bananas melonas yeah
1:   1     2.0     7.0 12.0
2:   2     4.5     9.5 14.5

显然，可以使用和组合其他功能。希望能帮助到你。

Answer 2

OP 已要求 从列名的向量中计算许多列的列均值。此外，OP 在他的示例代码中已经证明他想要重命名结果列。

excepted answer 和this comment 中建议的解决方案都不完全满足所有这些要求。接受的答案会计算 data.table 的 all 列的平均值，并且不会重命名结果。 cmets 中的解决方案确实使用列名向量并重命名结果，但修改了原始 data.table 而the OP expects a new object。

使用以下代码可以满足 OP 的要求：

# define columns to compute mean of
cols <- c("bananas", "melonas")
# compute means for selected columns and rename the output
result <- dto[, lapply(.SD, mean), .SDcols = cols, by = its
              ][, setnames(.SD, cols, paste(cols, "mean", sep = "_"))]

result
#   its bananas_mean melonas_mean
#1:   1          2.0          7.0
#2:   2          4.5          9.5

仅对作为列名的字符向量给出的列计算平均值，输出列已重命名，并且 dto 不变。

编辑感谢this comment和this answer， 有一种方法可以让data.table 重命名输出列自动：

result <- dto[, sapply(.SD, function(x) list(mean = mean(x))), .SDcols = cols, by = its]
result
#   its bananas.mean melonas.mean
#1:   1          2.0          7.0
#2:   2          4.5          9.5