adj <- matrix(c(0, 1, 1, 1, 0, 1, 1, 1, 0), nrow = 3)
# Apply different themes
cograph(adj) |> sn_theme("dark") |> splot()
cograph(adj) |> sn_theme("minimal") |> splot()
# Override specific theme properties
cograph(adj) |> sn_theme("classic", background = "lightgray") |> splot()
# Direct matrix input
adj |> sn_theme("dark")
Run the code above in your browser using DataLab