inst/charts/5.R

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")
NicolasJBM/writer documentation built on Aug. 12, 2019, 2:36 p.m.