if (requireNamespace("ggraph")) {
z <- topo(aquarium_mod)
ggtopo(z)
ggtopo(z, edge = "line")
z <- topo(trini_mod)
ggtopo(z)
# For finer control, one can build a tbl_graph from the topology and
# use ggraph directly
x <- as_tbl_graph(z)
library(ggraph)
ggraph(x) + geom_edge_link()
}
Run the code above in your browser using DataLab