library(plotly)
plot_ly(x = ~sample(LETTERS, 1e6, replace = TRUE))