如何通过R中的多个因素将函数应用于矩阵列？

Question

这是一个简单的问题，我相信可以通过轻按，应用或按以下方式轻松解决。但是，我对此还比较陌生，我想请教一下。

问题：

我有一个包含5列的数据框。 例如，第4列和第5列是因素。 对于第5列中的每个因子，我想对第5列中的每个组的第1：3列执行一个函数。从原理上讲，这很容易实现。 但是，我想将输出作为一个漂亮的表，并且我想学习如何以一种优雅的方式进行操作，这就是为什么我想在这里问你。

例：

 df <- data.frame(x1=1:6, x2=12:17, x3=3:8, y=1:2, f=1:3)

现在，命令

 by(df[,1:3], df$y, sum)

会根据y每个因子水平给我总和，这几乎是我想要的。 需要执行两个附加步骤：一个是针对f每个因子水平执行此操作。 这几乎是微不足道的。 我可以轻松地在上面的命令周围包裹lapply ，得到我想要的东西，除了：我想用结果生成一个表，甚至可以用它来生成热图。

因此：有没有一种简单且更优雅的方法来执行此操作并生成具有相应输出的矩阵？ 对于数据科学家来说，这似乎是一项日常任务，这就是为什么我怀疑存在现有的内置解决方案的原因...

感谢您的帮助或提示，无论大小如何！

Answer 1

您可以使用reshape2和plyr软件包来完成此操作。

library(plyr)
df2 <- ddply(df, .(y, f), sum)

然后将其通过y矩阵转换为af：

library(reshape2)
acast(df2, f ~ y, value.var = "V1")