# NOT RUN {
cars2 <- cars %>%
dplyr::bind_rows(cars) %>%
dplyr::mutate(
speed = jitter(speed),
dist = jitter(dist)
)
g2(cars2, asp(speed, dist)) %>%
fig_point() %>%
fig_rug()
# }
Run the code above in your browser using DataLab