I have the following graph: graph
I created the following matrix to represent the 18 possible routes
origin <- "A" stage_1 <- c("B&quo