r - ggplotで折れ線グラフと交差する縦線/横線をプロットする

Question

次のコードは、次のプロットを生成します。

time_step <- c(1:5, 1:5)

perceived_signal_slow <- c(1:5, cumsum(1:5))

signal_name <- c("perceived","perceived","perceived","perceived","perceived","accumulated","accumulated","accumulated","accumulated","accumulated")

df <- cbind(perceived_signal_slow, signal_name, time_step)

df <- as.data.frame(df)

df$time_step <- as.numeric(as.character(df$time_step))
df$perceived_signal_slow <- as.numeric(as.character(df$perceived_signal_slow))

ggplot(df, aes(x = time_step, y = signal, colour = signal_name)) +
  geom_line() +
  geom_vline(xintercept = 4, colour = "black", size = 1, alpha = .4) +
  geom_hline(yintercept = 10, colour = "black", size = 1, alpha = .4) +
  geom_hline(yintercept = 4, colour = "black", size = 1, alpha = .4)

ただし、垂直線と水平線を制限して、グラフの累積線と知覚線に到達するとそれ以上移動しないようにします。これを行うためにコードを変更する方法を知っている人はいますか?

助けてくれてありがとう！