# NOT RUN {
require(igraph)
flareGraph <- graph_from_data_frame(flare$edges, vertices = flare$vertices)
ggraph(flareGraph, 'dendrogram', circular = TRUE) +
geom_edge_diagonal0() +
geom_node_text(aes(filter = leaf, angle = node_angle(x, y), label = shortName),
hjust = 'outward', size = 2) +
expand_limits(x = c(-1.3, 1.3), y = c(-1.3, 1.3))
# }
Run the code above in your browser using DataLab