在搞复杂点。
<br />
a=data.frame(customer=c('a','b','a','m','a','b'),consumption=1:6,groups=c('A','B','A','B','A','B'))</p>
<p>aggregate(a$consumption, list(a$customer,a$groups), sum)<br />
Group.1 Group.2 x<br />
1 a A 9<br />
2 b B 8<br />
3 m B 4<br />
</p>