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
)

Inizia con l'esempio R fornito usando highlight(), add_markers(), leaflet(), addCircles() e bscols(). Leggi il comportamento esistente dell'evidenziazione di plotly e leaflet collegati, quindi determina se lo stato di hover può sincronizzare i colori dei marker in entrambe le viste; il lavoro è completato quando il punto su cui si passa il cursore cambia colore nel grafico a dispersione e sulla mappa.