R 将事件符号添加到日期轴上的绘图

我在向绘图中添加符号或指示器时遇到问题。我无法共享数据，因此我使用股票数据复制了问题

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

library（plotly）
图书馆（quantmod）
getSymbols（“AAPL”，src='yahoo'）
库存量
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 = '')