r - acast の異なる列に異なる集計ルールを設定できますか?

Question

今日の脳の機能不全:acastさまざまな集計を返すように指示するにはどうすればよいですか?

# the rows and columns have integer names
Rgames> foo
  1 2
1 1 1
2 2 2
3 3 3
4 4 4
1 1 4
2 2 8
3 3 2
4 4 1
Rgames> mfoo<-melt(foo)
Rgames> mfoo
   Var1 Var2 value
1     1    1     1
2     2    1     2
3     3    1     3
4     4    1     4
5     1    1     1
6     2    1     2
7     3    1     3
8     4    1     4
9     1    2     1
10    2    2     2
11    3    2     3
12    4    2     4
13    1    2     4
14    2    2     8
15    3    2     2
16    4    2     1
Rgames> acast(mfoo,Var1~Var2,function(x)x[1]-x[2])
  1  2
1 0 -3
2 0 -6
3 0  1
4 0  3
# what I would like is the casting formula to return
  1  2
1 1 -3
2 2 -6
3 3  1
4 4  3

これは単純な例であることに注意してください。通常、一意の名前を持つ行がありますが、特定の名前を持つ行が 2 つを超えることはないため、x[1]-x[2]失敗することはありません。または、これを使用する必要があります：

aggregate(foo[,2],by=list((foo[,1])),function(x)x[1]-x[2])