library(magrittr)
labels <- rownames(USArrests)
group <- substr(labels, 1, 1)
d3rug( USArrests$UrbanPop
, labels = labels
, alpha=0.3
, col="brown"
, col_hover="steelblue"
, unit = "%"
# , group = group
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.