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
)

提供された R の例を、highlight()、add_markers()、leaflet()、addCircles()、bscols() を使って始めます。既存の、連携された plotly と leaflet の highlight の挙動を読み、その後、ホバー状態によって両方のビューのマーカーの色を同期できるかを判断します。完了の条件は、ホバーした点の色が散布図とマップの両方で変わることです。