Polar Dendrogram

library(tidyverse)
library(networkD3)


iris_clusters <- iris %>%
  select(Sepal.Length:Petal.Width) %>%
  dist() %>%
  hclust() %>%
  as.radialNetwork()

radialNetwork(iris_clusters, 
              # a few small style hacks
              fontSize = 0,
              nodeStroke = "#FFF",
              linkColour = "#000", 
              opacity = .1)