Постройте настроенные вертикальные линии до кривой

Я хочу, чтобы вертикальные линии не выходили за линию кривой после пересечения

# example data:
x <- 1:50
dat <- data.frame(x = x, y = 1 - exp(-x/43)^4)

ggplot(dat, aes(x = x, y = y)) + geom_line() + geom_vline(xintercept = c(10, 20, 30), lty = "dashed")

enter image description here

2
0
317
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вместо этого используйте geom_segment:

ggplot(dat, aes(x = x, y = y)) + 
  geom_line() + 
  geom_segment(aes(x = x, xend = x, y = min(dat$y), yend = y),
               data = dat[ dat$x %in% c(10, 20, 30), ],
               lty = "dashed")

enter image description here

Другие вопросы по теме