# NOT RUN {
df <- data.frame(
x = 1:10,
y = runif(10, 5, 10)
) %>%
dplyr::mutate(
lwr = y - runif(10, 1, 3),
upr = y + runif(10, 2, 4)
)
df %>%
e_charts(x) %>%
e_line(y) %>%
e_band(lwr, upr)
# }
Run the code above in your browser using DataLab