ggplot2
также предлагает очень простое решение!
library(ggplot2)
# Create some dummy data
data.frame(X = rpois(n = 10, lambda = 3),
Y = rpois(n = 10, lambda = 2)) %>%
# Pipe to ggplot
ggplot(aes(X, Y)) +
geom_point() +
geom_segment(aes(x = 1, xend = 1, y = 1, yend = 4), color = "red")
В рамках вызова эстетики geom_segment()
вы можете выбрать начальную и конечную точки для ваших параметров x и y.Затем вы можете легко добавить несколько сегментов, просто добавив + geom_segment(aes(...))
в конец кода выше.