我正在尝试建立一个结合ggplot2和的情节plotly。两条垂直线出现在纯ggplot2上，但是一旦我调用plotly::ggplotly它，它们就会消失。如何使数据也出现在ggplotly版本上？如果您有一个仅使用的解决方案plot_ly，那也可以。
数据：
df <- structure(list(date = structure(c(17226, 17257, 17287, 17318,
17348, 17379, 17410, 17440, 17471, 17501, 17226, 17257, 17287,
17318, 17348, 17379, 17410, 17440, 17471, 17501, 17226, 17257,
17287, 17318, 17348, 17379, 17410, 17440, 17471, 17501), class = "Date"),
n = c(253L, 217L, 257L, 166L, 121L, 56L, 68L, 62L, 142L,
20L, 174L, 228L, 180L, 158L, 80L, 39L, 47L, 54L, 107L, 12L,
93L, 74L, 47L, 49L, 55L, 16L, 52L, 53L, 32L, …