如何为响应式R Shiny散点图添加数据标签

你的问题出在geom_text的标签引用上——你写了label=input$Tally，但input里根本没有Tally这个输入控件，Tally是你数据框里的列，应该从过滤后的响应式数据中获取。

修正后的核心代码部分 #

在renderPlot里，把geom_text改成下面这样：

geom_text(aes(label = Tally), nudge_y = 1.5, check_overlap = TRUE)

完整修正后的server部分 #

server <- function(input, output) {
  filtered_data <- reactive({
    df %>%
      filter(Species == input$Species, Unit %in% input$Unit, between(Date ,input$Date[1], input$Date[2]))})
  
  output$line <- renderPlot({
    ggplot(filtered_data(), aes(x = Date, y = Tally, color = Unit, group = Unit)) +
      geom_line() +
      geom_point() +
      # 修正标签引用，添加轻微偏移避免遮挡点
      geom_text(aes(label = Tally), nudge_y = 1.5, check_overlap = TRUE) +
      scale_x_date(date_breaks = "2 weeks" , date_labels = "%d-%b") 
  })
}

额外优化：隐藏0值标签 #

如果不想显示Tally为0的标签（避免冗余），可以修改geom_text的标签映射：

geom_text(aes(label = ifelse(Tally > 0, Tally, "")), nudge_y = 1.5, check_overlap = TRUE)

这样修改后，标签会正确对应每个点的Tally值，不会再出现长度不匹配或对象引用错误的问题。

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