Могу ли я иметь разные правила агрегирования для разных столбцов в 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

С оговоркой, что это простой пример. В общем случае будут строки с уникальными именами, но не более двух строк с данным именем, поэтому мой x[1]-x[2] никогда не подведет Или я должен просто использовать это:

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