library(phangorn)
x <- allCircularSplits(6)
z <- as.networx(x)
plot(z, "equal angle", show.tip.label = FALSE, edge.color = "grey")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.