R Plotly 颜色条随按钮消失

Question

我在下面有一个玩具示例，其中我有一个散点图，它保持在相同的 x 和 y 坐标上，但我想通过不同列中的值对散点进行着色。 当我单击“Petal.Width”时，会出现正确的散点 colors，但颜色条会消失。 理想情况下，我希望颜色条的标题与单击的按钮相同，并且颜色条的比例随着每个单击的按钮而改变。

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) 

这是我运行代码时 plot 的显示方式

这是当我单击“Petal.Width”时

Answer 1

如果将来有人发现这个问题，我会回答：

对我有用的是在两条轨迹（ colorbar ）中为颜色条指定一些add_trace 。

你会以这样的方式结束：

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

您可以使用 R 的Plotly 文档中的 arguments 进一步自定义颜色条