animals |>
tidyplot(x = weight, y = speed) |>
add_reference_lines(x = 4000, y = c(100, 200)) |>
add_data_points()
animals |>
tidyplot(x = weight, y = speed) |>
add_reference_lines(x = 4000, y = c(100, 200), linetype = "dotdash") |>
add_data_points()
Run the code above in your browser using DataLab