如何在R中标记时间序列数据中提取的峰值

我是R的一个noob，但我正在处理大量活体神经记录的时间序列数据

我能够绘制时间序列，并使用我在网上找到的自定义find_peaks函数（来自fluoR软件包）提取局部最大值：

---

df查看geom函数通常如何接受数据参数。这意味着您可以轻松添加绘制其他数据（找到的子集）的几何点图层

这样的话：（未经测试）

太棒了，这就像一个符咒。。。我还没开始写ggplot…谢谢！
df <- format_data(GCaMP)
head(df)

pks <- find_peaks(xvals = df$Trial8,
              n.points = 10) 

neg_pks <- find_peaks(xvals = df$Trial8,
                  n.points = -10) 

## line plot of data

ggplot(df) +
  geom_line(aes(x = Time, y = Trial8))

ggplot(df, aes(x=Time, y=Trial8) ) +
    geom_line() +
    geom_point( data=df[ pks, ], col="red" ) +
    geom_point( data=df[ neg_pks, ], col="red" ) # or perhaps another color?