# NOT RUN {
mtcars %>%
e_charts() %>%
e_histogram(mpg, name = "histogram") %>%
e_density(mpg, areaStyle = list(opacity = .4), smooth = TRUE, name = "density", y.index = 1) %>%
e_tooltip(trigger = "axis")
# }
Run the code above in your browser using DataLab