R 在鼠标悬停时使用Plotly更改geom_point大小

您可以使用docs中概述的两个自定义事件处理程序来实现所需的结果.使用plotly_hover事件可以增加悬停点的大小，使用plotly_unhover可以将其设置回默认大小.在这两种情况下，这都是使用Plotly.restyle实现的.但是，使用Plotly.restyle，我们只能设置或更改轨迹的标记样式.因此，要为一个点设置标记样式，需要将每个点视为单个轨迹.为此，我在ggplot()中的coloraes上映射了factor(id).因为这将添加一个 colored颜色 图例，所以我在layout中添加了showlegend = FALSE个，因为plotly没有考虑到设置guide="none".最后，由于用于大小的单位不同于ggplot2，因此在中获取或设置正确的大小需要转换ggplot2大小，这可以使用Size_in_mm * 96 / 25.4来实现

注意:由于图像部分与问题无关，我将其删除以使示例更简洁.

library(plotly)
library(ggplot2)
library(lorem)

set.seed(123)

df <- data.frame(
  id = 1:50,
  value = rnorm(50),
  text = ipsum_words(50, collapse = FALSE)
)

gg <- ggplot(
  df,
  aes(
    x = id,
    y = value,
    text = text,
    color = factor(id)
  )
) +
  geom_point(alpha = 0.5, size = 5) +
  scale_color_manual(
    values = rep("red", nrow(df)), guide = "none"
  ) +
  theme_bw()


# create plot
pp <- ggplotly(gg,
  tooltip = c("text")
)

# display plot
pp <- plotly::layout(pp,
  showlegend = FALSE
) 

pp |>
  htmlwidgets::onRender("
    function(el) {
      el.on('plotly_hover', function(data) {
        console.log(data);
    
        var pn='',
            tn='',
            colors=[];
        
        for(var i=0; i < data.points.length; i++){
          pn = data.points[i].pointNumber;
          tn = data.points[i].curveNumber;
          colors = data.points[i].data.marker.color;
        };
        var size = 10 * 96 / 25.4;
    
        var update = {'marker':{color: colors, size: size, opacity: 1}};
        Plotly.restyle(el.id, update, [tn]);
      });
      el.on('plotly_unhover', function(data) {
        var pn='',
            tn='',
            colors=[];
        
        for(var i=0; i < data.points.length; i++){
          pn = data.points[i].pointNumber;
          tn = data.points[i].curveNumber;
          colors = data.points[i].data.marker.color;
        };
        var size = 5 * 96 / 25.4;
    
        var update = {'marker':{color: colors, size: size, opacity: .5}};
        Plotly.restyle(el.id, update, [tn]);
      });
    }
  ")