在R中，操作多个数据框向量并进行平均值计算

Question

我很新手R语言，正在尝试操作一个像这样的数据框：

    > head(data)
           V1      V2      V3      V4       V5      V6      V7      V8       V9
1 3.55271e-15 10.7349 21.9238 26.5136 42.38290 37.0355 28.6789 36.6033 26.46900
2 0.00000e+00 14.5497 19.4960 23.9728 37.66170 32.5874 32.9722 46.7856 41.23690
3 0.00000e+00 19.8794 12.6273 15.7562 26.07470 16.3857 33.3016 40.0800 33.45120
4 0.00000e+00 13.9638 33.8372 50.1383 52.74920 55.9552 79.8752 78.2309 76.51520
5 0.00000e+00 25.1614 23.7001 21.1502  7.11349 13.3939 18.4262  1.1183  8.78106
6 3.55271e-15 11.1300 10.5257 21.4103  8.95956 14.8252 42.4594 40.8457 29.57740

我想做的是对数据框中的每个元素应用一个函数，然后对每个k的结果进行平均:

for (k in c(1,100){
  sample <- cos(k*data)
  average <- mean(sample)}

但是我意识到这将覆盖示例变量，我只会留下一个样本（在k = 100处）。

我也知道R更喜欢向量化函数而不是for循环，那么我应该如何解决这个问题？谢谢！

- Adam Barnett

Answer 1

你可以使用sapply()将函数应用于数据并返回平均值。

sapply(1:100, (function(i){
  sample <- cos(i*data)
  mean(sample)
}))

如果你想将"样本"存储在列表中，可以首先使用lapply()，然后再在你的样本列表上使用sapply()。

samples <- lapply(1:100, (function(i){
  cos(i*data)
}))
averages <- sapply(samples, mean)
head(averages)
[1]  0.046893344  0.032709183 -0.009479597 -0.185085895 -0.395590101  0.554012071

- Damiano Fantini

---

这个花了我一点时间才理解，但我想我懂了，它确实解决了我的问题。谢谢！ - Adam Barnett