require(tidygraph)
flareGraph <- tbl_graph(flare$vertices, flare$edges)
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