#' ## lollipop
mtcars <- mtcars[order(mtcars$hp , decreasing = TRUE),]
mtcars$name <- rownames(mtcars)
hchart(mtcars, "lollipop", hcaes(name = name, low = hp ), name = "Horse Power") %>%
hc_xAxis(type = "category") %>%
hc_yAxis(labels = list(format = "{value} HP"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.