perl - 如何获得按键分组的平均值和标准差？

Question

我需要找到这种格式的大量数据的平均值和标准差。我尝试使用 Excel，但似乎没有一种简单的方法来转置列。我在 Excel 中缺少什么，还是应该使用 Perl？

输入文件格式为:

0123

0234

0 456

1657

1234

1543

希望结果按第一列中的值对平均值和标准差进行分组:

0 全部零点的平均标准偏差

1 AvgOfAllOnes StdDevOfAllOnes

Answer 1

这在 R 中很容易做到。如果您的数据位于名为 foo 的文件中，则以下代码即可实现此目的:

> data <- read.table("foo")
> cbind(avg=with(data, tapply(V2, V1, mean)),
+       stddev=with(data, tapply(V2, V1, sd)))
  avg   stddev
0 271 169.5553
1 478 218.8630