suppressMessages(library(tidyverse))
suppressMessages(library(igraph))

edges <- tibble(from = c('a', 'a', 'b', 'b', 'c', 'd', 'b', 'e'), to = c('b', 'c', 'a','c', 'd', 'a', 'e', 'c'))
routes <- graph_from_data_frame(d = edges, directed = TRUE)
plot(routes)

page_rank(routes_igraph)