g <- make_graph("Frucht")
T <- bfs_tree(g, 2) # Root at v = 2
z <- layout_with_gem(g)
plot(g, layout = z, main = "Breadth-first search tree")
plot(T, layout = z, add = TRUE, edge.color = "cyan4", edge.width = 2)
plot(T, layout = layout_as_tree(T))
Run the code above in your browser using DataLab