Dimming of unselected points by both plotly and crosstalk makes points progressively fade away.

When I use crosstalk, selecting a rectangle multiple times causes other points to progressively dim away.

remotes::install_github("plotly/plotly.R")

library(plotly)

shared_data <- highlight_key(mtcars)
p <- ggplot(shared_data)+aes(cyl, mpg)+geom_point()

# Unselected points progressively fade as multiple selections are made
ggplotly(p) |>
    highlight(on="plotly_selected",off="plotly_deselect")

I suspect this is some strange interaction between the usual dimming of unselected points by plotly and the dimming of unselected points via the crosstalk selection. A workaround that seems to fix the problem is to disable the usual plotly dimming, so the only dimming of points is done via crosstalk.

# Workaround:
ggplotly(p) |>
    style(unselected=list(marker=list(opacity=1))) |>
    highlight(on="plotly_selected",off="plotly_deselect")

PS I'm very excited by the possibilties crosstalk offers. I had a wow moment when I realised it worked with GGally::ggpairs.

从使用 highlight_key()、ggplot()、ggplotly() 和 highlight() 以及 plotly_selected 的可复现 R 示例开始。重复进行矩形选择不应使未选中的点逐渐变暗，并且不应再需要使用 style(unselected=list(marker=list(opacity=1))) 这一 workaround。