# NOT RUN {
USArrests %>%
dplyr::mutate(
State = row.names(.),
Rape = -Rape
) %>%
e_charts(State) %>%
e_bar(Murder) %>%
e_bar(Rape, name = "Sick basterd", x.index = 1) # secondary x axis
# }
Run the code above in your browser using DataLab