Color markers upon hover linked leaflet map highlight()

I am wondering if there is a way to make the highlighted (from hover) dot change color, on both the linked leaflet map as well as the scatter plot? In other words, can the blue dot turn to a red dot, on both map and chart, upon hover?

Thanks!

library(leaflet)

eqs <- highlight_key(quakes)


p <- plot_ly(eqs, x = ~depth, y = ~mag) %>% 
  add_markers(alpha = 0.5) %>% 
  highlight("plotly_hover", opacityDim = .1)

map <- leaflet(eqs) %>% 
  addTiles() %>% 
  addCircles(opacity = 1)

bscols(
  widths = c(6, 6), 
  p, map
)

Commencez par l’exemple R fourni en utilisant highlight(), add_markers(), leaflet(), addCircles() et bscols(). Examinez le comportement existant de highlight de plotly et leaflet liés, puis déterminez si l’état de survol peut synchroniser les couleurs des marqueurs dans les deux vues ; la tâche est terminée lorsque le point survolé change de couleur sur le nuage de points et sur la carte.