As funções *path
do igraph retornam uma lista de conexões (edges). Alguns atributos podem ser extraídos dela, mas o mais importante, pode usar os índices para indexar o grafo ou o data.frame com os dados.
library(igraph)
ligacoes <- data.frame(
origem = c("A","A", "B", "B", "D"),
destino = c("B","D","C","D", "E"),
valor= c(31.2, 100, 1, 85, 2),
peso = c(1,1,2,1,2))
grafo1 <- graph_from_data_frame(ligacoes)
# Nós que servem apenas de destino:
finais <- as.character(with(ligacoes, destino[!destino %in% origem]))
# Todos os caminhos que saem de A e terminam nos nós finais:
caminhos <- all_simple_paths(grafo1, from = "A", to = finais, mode = "out")
Por exemplo, para ter os valores do atributo valor
para as conexões do primeiro caminho:
names(caminhos[[1]])
#> [1] "A" "B" "D" "E"
E(grafo1)[caminhos[[1]]]$valor
#> [1] 31.2 100.0 1.0 2.0
Sendo uma lista, pode fazer operações para todos os caminhos usando a família apply
:
dados <- data.frame(
caminho = sapply(caminhos, function(x) paste(names(x), collapse = "-")),
comprimento = sapply(caminhos, length),
valor_total = sapply(caminhos, function(x) sum(ligacoes[x, "valor"])),
valor_ponderado = sapply(caminhos, function(x) sum(ligacoes[x, "valor"]*ligacoes[x, "peso"]))
)
dados
#> caminho comprimento valor_total valor_ponderado
#> 1 A-B-D-E 4 134.2 137.2
#> 2 A-B-C 3 216.2 216.2
#> 3 A-D-E 3 34.2 37.2
PS: Não entendi com base em que fez a conta do valor no exemplo que postou, então inventei uma conta de demonstração.
all_simple_paths
e outras funções do tipo retornam listas porque os caminhos possuem comprimento diferente.