# NOT RUN {
USArrests %>%
e_charts(UrbanPop) %>%
e_line(Assault, smooth = TRUE) %>%
e_area(Murder, y.index = 1, x.index = 1) %>%
e_y_axis(gridIndex = 1) %>%
e_x_axis(gridIndex = 1) %>%
e_grid(height = "40%") %>%
e_grid(height = "40%", top = "55%")
# }
Run the code above in your browser using DataLab