r - 在 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 循环，那么我应该如何解决这个问题？谢谢!

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