r - 如何在R中的绘图上准确添加相交线？

Question

我正在尝试向 ggplot 添加直角交叉线。

例如，在下面的代码\图中，我在某个给定的阈值 x 值处绘制了一条虚线。理想情况下，我希望这条线与曲线相交并到达 y 轴上的相应点。如您所见，目前我只是将其扩展到 y=1。

我想知道如果只给出任何类型曲线的 x 值，是否有办法找到相应的 y 值？

library(ggplot2)

# create data
df <- data.frame(
  x = seq(0,1, by = 0.1),
  y =  pexp(seq(0, 1, by = 0.1), rate = 4)
)

# set treshold
threshold <- 0.5

# plot
ggplot(df, aes(x, y)) +
  geom_line() +
  geom_segment(aes(x = threshold, xend = threshold, y = -Inf,  yend = 1), linetype = 2)+
  geom_segment(aes(x = -Inf, xend = threshold, y = 1, yend = 1),  linetype = 2) +
  theme_bw()

Answer 1

你是这个意思吗？

df2 <- with(approx(df$x, df$y, xout = threshold),
            data.frame(x1 = c(-Inf, x, x), y1 = c(y, y, -Inf)))
ggplot(df, aes(x, y)) +
  geom_line() +
  geom_line(aes(x = x1, y = y1), linetype = 2, data = df2) +
  theme_bw()