R语言使用Plotly绘制折线图时仅在指定日期显示hoverinfo标记点

你当前代码的核心问题是add_trace默认继承了上层传入的全量joinedData数据集，无文章发布的日期对应的article字段为NA，也会被渲染为无文本的标记点，因此所有日期都会显示标记。
仅需在添加标记点的步骤中传入过滤后的有效文章发布日期子集即可，修正后代码如下：

library(plotly)
library(dplyr)

plot_ly(data = joinedData, x = ~Date, y = ~Views, type = "scatter", mode = "lines") %>%
  add_trace(
    # 仅保留有文章发布的记录作为标记点数据源
    data = filter(joinedData, !is.na(article)),
    hoverinfo = "text",
    text = ~article,
    mode = "markers",
    # 可选：自定义标记样式突出显示
    marker = list(size = 10, color = "#ff4757")
  )

可选优化 #

如果需要悬停时同时展示文章名称和当日流量，可以修改text参数：

text = ~paste0("文章名称：", article, "<br>当日浏览量：", Views)

内容的提问来源于stack exchange，提问作者Jacob