如何在r-plotly中向折线图的峰值动态添加注释？

Question

我正在尝试重现此页面中显示的代码，特别是名为“混合数据操作和可视化动词”的代码。

我实际上只是复制粘贴了代码并进行了一些小的更改以使其运行（ plot_ly现在要求使用“~”等引用列名）。 但是，我的图表看起来非常不同：

我拥有的

我查看了 plot_ly 中的注释，但似乎需要对这一点进行硬编码，而不是像作者那样自动使用filter 。 （除非我误解了。）这就是我正在使用的：

p4 <- plot_ly(economics, x = economics$date, y = economics$uempmed)

p4 %>%
  add_trace(y = fitted(loess(economics$uempmed ~ as.numeric(economics$date)))) %>%
  add_lines(x = economics$date, y = economics$uempmed) %>%
  layout(title = "Median duration of unemployment (in weeks)",
         showlegend = FALSE) %>%
  dplyr::filter(economics$uempmed == max(economics$uempmed)) %>%
  layout(annotations = list(x = economics$date, y = economics$uempmed, text = "Peak", showarrow = T))

我希望它看起来像在网站上（如下），但似乎注释文本只是在整行中被垃圾邮件而不是仅仅停留在最大值：

它应该是什么样子

有人能告诉我我做错了什么吗？

Answer 1

为什么不在将其放入链之前先预先计算峰值

peak <- dplyr::filter(economics, uempmed == max(uempmed))
p4 %>%
  add_trace(y = fitted(loess(economics$uempmed ~ as.numeric(economics$date)))) %>%
  add_lines(x = economics$date, y = economics$uempmed) %>%
  layout(title = "Median duration of unemployment (in weeks)",
         showlegend = FALSE) %>%
  layout(annotations = list(x = peak$date, y = peak$uempmed, text = "Peak", showarrow = T))