Many possible layouts

There are many different possible layouts.

DRL force-directed graph layout from igraph:

layout <- ggraph::create_layout(hs_graph, layout = 'drl')

ggraph(layout) + 
  geom_edge_link() + 
  geom_node_point()