# NOT RUN {
df <- dplyr::tibble(
x = 1:100,
y = runif(100, 7, 18),
y1 = runif(100, 5, 10),
y2 = runif(100, 12, 20)
) %>%
dplyr::mutate(
y = runif(dplyr::n(), y1 + 1, y2 - 1)
)
g2(df, asp(x, y, ymin = y1, ymax = y2)) %>%
fig_line() %>%
fig_ribbon(axes = FALSE)
# }
Run the code above in your browser using DataLab