R Plotly Colorbar исчезает с кнопками

Question

У меня есть игрушечный пример ниже, где у меня есть диаграмма рассеяния, которая остается с теми же координатами x и y, но я хотел бы закрасить точки рассеяния значениями в разных столбцах. Когда я нажимаю «Petal.Width», появляются правильные цвета точек разброса, но цветовая полоса исчезает. В идеале мне бы хотелось, чтобы заголовок цветовой панели совпадал с нажатой кнопкой, а масштаб цветовой полосы изменялся с каждой нажатой кнопкой.

updatemenus <- list(
  list(
    active = -1,
    type= 'buttons',
    buttons = list(
      list(
        label = "Petal.Length",
        method = "update",

        args = list(list(visible = c(FALSE, TRUE)))),
      list(
        label = "Petal.Width",
        method = "update",
        args = list(list(visible = c(TRUE, FALSE))))
    )
  )
)

iris %>%
  plot_ly(type = "scatter",
          mode = 'markers') %>% 
  add_trace(x = ~Sepal.Length, 
          y = ~Sepal.Width,
          color = ~Petal.Length,
          visible = TRUE,
          name = "Petal.Length") %>% 
  add_trace(x = ~Sepal.Length, 
          y = ~Sepal.Width,
          color = ~Petal.Width,
          visible = FALSE,
          name = "Petal.Width") %>% 
  layout(updatemenus=updatemenus) 

Вот как отображается график, когда я запускаю свой код

Вот когда я нажимаю "Petal.Width"