如何在Shiny中实现ggplot的持久化鼠标悬停年份注释？

问题根源 #

• 你之前的代码中，input$hover会在鼠标移动时持续触发renderPlot高频刷新，导致注释跟着频繁显示/隐藏，出现闪烁。
• 把reactiveVal和observeEvent放在renderPlot内部是错误的——每次图表渲染都会重新创建响应式变量和观察者，这直接导致了卡顿。

正确的做法是把响应式变量和监听逻辑移到renderPlot外部，只在年份真正变化时才更新：

修正后的代码示例 #

Server部分 #

server <- function(input, output) {
  # 把响应式变量放在renderPlot外，全局复用
  selected_year <- reactiveVal(0)
  
  # 单独监听hover事件，仅在年份变化时更新变量
  observeEvent(input$hover, {
    new_yr <- round(input$hover$x)
    # 避免无意义的重复更新，减少渲染次数
    if (new_yr != selected_year()) {
      selected_year(new_yr)
    }
  }, ignoreInit = TRUE)
  
  output$evict_plot <- renderPlot({
    yr <- selected_year()
    evict_base + 
      # 2010年注释逻辑
      if(yr == 2010) {
        annotate("text", x = 2010.57, y = 25296, 
                 label = 'atop("23,058 evictions", bold("81.1% back rent cases"))',
                 family = "lato", parse = TRUE)
      } +
      # 2012年峰值注释逻辑
      if(yr == 2012) {
        annotate("text", x = 2012.5, y = [替换为对应峰值y值], 
                 label = 'atop("峰值驱逐数", bold("xxx cases"))',
                 family = "lato", parse = TRUE)
      } +
      # 2019年最新值注释逻辑
      if(yr == 2019) {
        annotate("text", x = 2019.5, y = [替换为对应最新y值], 
                 label = 'atop("2019年驱逐数", bold("xxx cases"))',
                 family = "lato", parse = TRUE)
      }
  })
}

关键改进点 #

• 将selected_year响应式变量放在renderPlot之外，确保整个Server生命周期只初始化一次，避免重复创建导致卡顿。
• 在observeEvent中增加年份判断，仅当新hover的年份与当前选中年份不同时才更新变量，大幅减少renderPlot的触发频率，解决闪烁问题。
• 实现了你要的「注释保持到鼠标移至其他年份」的效果：只要hover的年份不变，selected_year就不会更新，图表也不会重新渲染，注释会持续显示。

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