library(tibble)
library(dplyr)
library(ggplot2)
library(writer)
library(plotly)
chart <- plotly::plot_ly(alpha = 0.6) %>%
plotly::add_histogram(x = ~rnorm(500)) %>%
plotly::add_histogram(x = ~rnorm(500) + 1) %>%
plotly::layout(barmode = "overlay")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.