在日期轴上以绘图方式添加事件符号

如何解决在日期轴上以绘图方式添加事件符号

我在向绘图区添加符号或指示符时遇到问题。我无法共享数据，所以我使用库存数据复制了该问题。

library(plotly)
library(quantmod)

getSymbols("AAPL",src='yahoo')

stock_df <- data.frame(Date_=index(AAPL),coredata(AAPL))[1:60,]

news <- data.frame(Date_ = as.Date(c("2007-01-05","2007-02-16","2007-03-09","2007-03-28")),event_ = c("Stock Split","New Iphone","New CEO","Earnings Call"))

stock_df <- dplyr::left_join(stock_df,news,by = c("Date_"))

stock_plot <- stock_df %>% plot_ly(x = ~Date_,type="candlestick",open = ~AAPL.Open,close = ~AAPL.Close,high = ~AAPL.High,low = ~AAPL.Low)  
                           layout(plot_bgcolor='black') %>% 
                           layout(paper_bgcolor='black')


stock_plot <- stock_plot %>% layout(title = "AAPL Candlestick Chart",xaxis = list(rangeslider = list(visible = FALSE)),yaxis = list(title ="Price"))

stock_plot

我要解决的问题是在给定数据上发生新闻事件时添加一个符号，例如实心圆圈。当用户将鼠标悬停在符号上时，将显示新闻事件文本。例如，在绘图下方的2007年1月5日将出现一个圆圈。当用户将鼠标悬停在圆圈上时，它将显示“股票分割”。

我试图建立起这一点，并从另一篇文章中尝试使用以下内容在事件发生的日期上添加一条垂直线：

event_dates <- stock_df[which(is.na(stock_df$event_) == FALSE),c("Date_","event_")]  
news_dates <- as.data.frame(event_dates) 
stock_plot %>% add_trace(data = news_dates,type = 'scatter',mode = 'lines',line = list(color = "Yellow"),name = '')

但是这没用。

我是数据可视化的新手，所以我希望社区中的某人可以提供帮助。如果有人可以在正确的方向上向我指出如何在新闻日期上添加圆圈，甚至只是一条垂直线，都将有所帮助。