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 進一步自定義顏色條