如何將單獨的數據添加到 R 中的繪圖中

Question

我構建月度報告，在其中繪制線圖上的網絡流量，當我將鼠標懸停在數據點上時，它會顯示日期和頁面訪問量。 我有第二張圖表，其中包含日期和發布日期的文章。 一個例子如下：

library(plotly)

Day <- seq.Date(as.Date("2020-08-01"),as.Date("2020-08-31"), by=1)
Visits <- round(rnorm(31, 150, 5),0)
Web_Traffic <- data.frame(Day, Visits)

Publishing_Date <- as.Date(c("2020-08-01", "2020-08-15", "2020-08-24"))
Article <- c("Article 1", "Article2", "Article3")

Blog <- data.frame(Publishing_Date, Article)

plot_ly(Web_Traffic, x=Day, y=Visits, type = "scatter", mode = "line")

有沒有辦法在 8 月 1 日、8 月 15 日和 8 月 24 日，在折線圖上，當我將鼠標懸停在數據點上時，它還可以包含當天發表的文章？ 如果這是可能的，有沒有辦法將數據保持在圖表上，而無需將鼠標懸停在圖表上？ （即，如果我想將圖形復制到幻燈片中）

Answer 1

您可以執行以下操作 - 使用垂直段標記已發布的文章：

plot_ly() %>%
  add_lines(data=Web_Traffic, x=Day, y=Visits, name="Visits" ) %>%
  add_segments(data=Blog, x=Publishing_Date, 
                          xend=Publishing_Date, 
                          y=min(Web_Traffic$Visits), 
                          yend=max(Web_Traffic$Visits), 
                          name="Published Articles")