# NOT RUN {
library(dplyr)
mtcars %>%
mutate(
model = row.names(.),
total = mpg + qsec
) %>%
arrange(desc(total)) %>%
e_charts(model) %>%
e_bar(mpg, stack = "grp") %>%
e_bar(qsec, stack = "grp")
# }
Run the code above in your browser using DataLab