chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% cjsBar
chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% cjsBar(stacked = TRUE)