, если вы говорите о diagonalNetwork
из пакета networkd3 ...
library(networkD3)
hc <- hclust(dist(USArrests), "ave")
network_plot <- diagonalNetwork(as.radialNetwork(hc))
saveNetwork(network_plot, file = "network_plot.html")
или если вы хотите сделать это в цепочке dplyr
...
library(networkD3)
library(dplyr)
hc <- hclust(dist(USArrests), "ave")
diagonalNetwork(as.radialNetwork(hc)) %>%
saveNetwork(file = "network_plot.html")