如何在ggplotly中实现点击数据点高亮功能？

问题根源 #

你使用了pch=21的点样式，这种点是带边框的空心点：

• colour参数控制点的边框颜色
• fill参数控制点的内部填充色
  而highlight()默认只修改color（对应边框），但你的点边框本来就是黑色，所以看不到高亮效果。

修正后的代码 #

通过highlight()的selected和unselected参数，明确指定修改填充色和透明度，让高亮效果更明显：

library(ggplot2)
library(plotly)

p <- ggplot2::ggplot(iris, 
    ggplot2::aes(x=Sepal.Length, y=Sepal.Width, size=Petal.Length, text=Species)) + 
    ggplot2::geom_point(alpha = 0.2, fill="lightgray", colour="black", pch=21) + 
    ggplot2::scale_size_area(max_size=20, breaks=seq(0,1, length.out=5)) 
 
gp <- plotly::ggplotly(p, tooltip = c("text"))
gp$x$config$displayModeBar <- FALSE

# 配置点击高亮：修改填充色+调整透明度
gp <- plotly::highlight(
  gp, 
  on = "plotly_click",
  selected = list(fill = "darkred", alpha = 1),  # 选中点的样式
  unselected = list(alpha = 0.1)  # 未选中点降低透明度，突出高亮
)

gp

关键修改说明 #

1. 在selected中指定fill="darkred"，直接修改点的内部填充色，这是pch=21点的视觉核心
2. 调整unselected的alpha值，让未选中点更淡，进一步凸显选中的点
3. 保留on="plotly_click"绑定点击事件，确保点击触发高亮

替代方案：手动修改Trace属性 #

也可以直接修改Plotly的底层trace配置，效果一致：

# 手动设置选中/未选中的marker样式
gp$x$data[[1]]$selected$marker <- list(fill = "darkred", alpha = 1)
gp$x$data[[1]]$unselected$marker <- list(alpha = 0.1)

# 绑定点击高亮事件
gp <- plotly::highlight(gp, on = "plotly_click")

内容的提问来源于stack exchange，提问作者Karsten W.