library(igraph)
g <- make_graph("Frucht")
T <- dfs_tree(g, 5) # Root at v = 5
z <- layout_with_gem(g)
plot(g, layout = z, main = "Depth-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