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 行为，然后确定 hover 状态是否能够同步两个视图中的标记颜色；完成的标准是，悬停的点在散点图和地图中都会改变颜色。