geom_sina plot doesn't show when linked to another plot via brushing in Shiny

Hello,

I'm attempting to link points from a geom_sina object to another plot (it will be a bar-plot but for now, I just have a scatterplot to illustrate the problem). The issue is that when I put the "key=key" aesthetic into geom_sina, the plot doesn't show up.The plot will show up if I remove the "key=key" aesthetic, but then I have no means by which to connect the plots. I think this might be a bug given that this works fine with geom_point.

library(plotly)
library(shiny)
library(tidyverse)

df = diamonds 
df = df[sample(1:nrow(df), size=1000, replace=FALSE), ] %>%
  rownames_to_column("key")

server <- function(input, output) {
  output$my_points <- renderPlotly({
    p = ggplot(df, aes(x=cut, y=price, label=clarity)) +
      coord_flip() +
      ggforce::geom_sina(aes(color=carat, key=key), alpha=.2) +
      # gggforce::geom_sina(aes(color=carat), alpha=.2) + # this will make the plot show up, but doesn't link it to the other
      # geom_point(aes(color=carat, key=key), alpha=.2) + # using geom_point works here
      theme_light()
    
    ggplotly(p, source="ggplotly_points")
  })
  
  selected_values <- reactive({
    brush <- event_data("plotly_click", source="ggplotly_points")
    if (is.null(brush)) {
      TRUE
    } else {
      df$key == (brush$pointNumber + 1)
    }
  })
  output$scatter <- renderPlotly({
    df %>%
      filter(selected_values()) %>%
      plot_ly(
        x = ~carat, 
        y = ~price, 
        alpha = 0.2
      ) %>%
      toWebGL()
  })
}

ui <- fluidPage(
  plotlyOutput("my_points"),
  plotlyOutput("scatter")
)


shinyApp(ui, server)

首先运行提供的 R Shiny 示例，并将 ggforce::geom_sina 情况与正常工作的 geom_point 情况进行比较。跟踪 ggplotly 转换和 key 处理，以确定为什么添加 key=key 会导致绘图无法渲染；当 sina 图显示出来，并且其中被点击的点仍然链接到第二个图时，即表示完成。