Com R base, pode usar aggregate
. Para mais de uma função, pode unir o resultado de diferentes agregações:
agg <- merge(
aggregate(df1[3], by = df1[1:2], length),
aggregate(df1[3], by = df1[1:2], sum, na.rm = TRUE),
by = c("origem", "destino"))
names(agg)[3:4] <- c("num_total", "valor_total")
agg
#> origem destino num_total valor_total
#> 1 A A 1 1
#> 2 A B 2 2
#> 3 B A 2 3
#> 4 B B 1 -1
#> 5 B C 1 5
Ou concatenar várias funções com c
:
agg <- aggregate(df1$valor, by = df1[1:2], function(x) c(num_total = length(x), valor_total = sum(x, na.rm = TRUE)))
Como apontado por @rui-barradas nos comentários, a concatenação vai resultar em uma variável x
contendo uma matriz com os resultados. Para ter um data.frame apenas com colunas de vetores:
agg <- cbind(agg[-length(agg)], agg[[length(agg)]])
agg
#> origem destino num_total valor_total
#> 1 A A 1 1
#> 2 B A 2 3
#> 3 A B 2 2
#> 4 B B 1 -1
#> 5 B C 1 5
Pacotes como dplyr (usado na resposta de Marcus Nunes) facilitam operações por grupo. Outra opção é data.table:
library(data.table)
setDT(df1)
df1[, .(num_total = .N, valor_total = sum(valor, na.rm = TRUE)), .(origem, destino)]
#> origem destino num_total valor_total
#> 1: A A 1 1
#> 2: A B 2 2
#> 3: B A 2 3
#> 4: B C 1 5
#> 5: B B 1 -1