R Shiny中Plotly散点图点击高亮失效问题求助

你的问题出在highlight()函数的参数配置上：原代码里的~mpg不是标识单个点的正确方式，且未指定高亮的视觉样式，导致点击后没有明显反馈。以下是修正方案：

关键改动说明 #

• 给每个散点添加唯一标识：通过key = ~rownames(mtcars)让Plotly精准识别被点击的单个点
• 调整highlight()配置：移除无效的~mpg参数，明确设置高亮的视觉样式（比如红色大圆点），确保点击后有清晰的视觉变化
• 可选设置persistent = TRUE：让高亮状态保持到双击取消

修正后的完整代码 #

# Define UI
ui <- fluidPage(
  fluidRow(
    column(6,
           h3("Scatterplot"),
           plotlyOutput("phylo_tree")),
  )
)

# Define server logic
server <- function(input, output) {
  # Scatter Plot with click highlight
  output$phylo_tree <- renderPlotly({
    plot_ly(data = mtcars, 
            x = ~mpg, 
            y = ~wt, 
            type = "scatter", 
            mode = "markers",
            color = ~cyl, 
            size = ~hp, 
            text = ~paste("Car: ", rownames(mtcars)),
            key = ~rownames(mtcars)) %>%  # 给每个点添加唯一标识
      highlight(on = "plotly_click",
                off = "plotly_doubleclick",
                persistent = TRUE,
                selected = list(marker = list(color = "red", size = 15)))  # 指定高亮样式
  })
}

# Run the application
shinyApp(ui, server)

额外说明 #

如果不需要保留旧点的高亮（点击新点自动取消旧点高亮），可以去掉persistent = TRUE。你也可以通过event_data()在Shiny服务器端手动控制高亮逻辑，但上述方式是纯Plotly层面的直接实现，更简洁。

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