固定一根轴时（时间序列）如何在两点之间画一条线

Question

我正在尝试使用ggplot2在两个变量的每个点之间绘制一条直线。 我查看了geom_segment，但是我很难使其适用于我的情况。

这是我的最低限度的工作示例，以及我要实现的目标（我缺少的部分为蓝色） 。

我将不胜感激任何帮助！

set.seed(1234)
y <- rnorm(10,0,0.01)
Date <- seq(as.Date("2000/1/1"), by = "day", length.out = 10)

example_df <- tibble(Date,y) %>% mutate(avg = mean(y))
ggplot(example_df, mapping = aes(x = Date)) + geom_point(mapping = aes(y = y)) +
  geom_line(aes(y = y)) + 
  geom_line(aes(y = avg), col = "red")

Answer 1

geom_segment将起作用：

ggplot(example_df, aes(x = Date)) + 
    geom_point(aes(y = y)) +
    geom_line(aes(y = y)) + 
    geom_line(aes(y = avg), col = "red")+
    geom_segment(aes(xend = Date, y = y, yend = avg), col = 'blue')