# NOT RUN {
library(ggraph)
graph <- categories_graph()
# In principle there should be graph data available, but let's check.
if (!is.null(graph)) {
ggraph(graph, 'tree') +
geom_edge_link() +
geom_node_point() +
geom_node_label(aes(label = category_label)) +
theme_graph()
}
# }
Run the code above in your browser using DataLab