Consegui resolver utilizando o seguinte código

 

total.valor = aggregate(teste$valor, list(teste$codigo), sum)

Mas, teria como, com esse mesmo código, gerar também a frequência?