data(exampleAB, package = "scan")
p1 <- scplot(exampleAB$Anja) |>
add_line(hline = 70, color = "darkred") |>
add_line(vline = 3, color = "blue") |>
add_line(x0 = 1, y0 = 70, x1 = 4, y1 = 80, color = "green")
Run the code above in your browser using DataLab