绘制多个更新菜单

建立在this https://stackoverflow.com/questions/71785083/updating-multiple-data-attributes-with-plotly帖子，我正在尝试创建两个updatemenus in R plotly这将允许选择两个因素的所有可能的组合。

这是我到目前为止所做的：

library(plotly)

X <- data.frame(x = 1:6,
                y = 1:6,
                z = 1:6,
                gender = rep(c("M", "F"), each = 3),
                eyes = rep(c("B", "G"), 3))

gg <- ggplot(data = X, aes(x = x, y = y)) + 
  geom_point(aes(color = z, alpha = interaction(gender, eyes))) +
  scale_alpha_manual(values = rep(1, 4))


ggplotly(gg) %>% 
  layout(
    updatemenus = list(
      list(y = 1,
           buttons = list(
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE, TRUE, TRUE)), 0:3),
                  label = "F&M"),
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE)), c(0, 2)),
                  label = "F"),
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE)), c(1, 3)),
                  label = "M"))),
      list(y = .8,
           buttons = list(
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE, TRUE, TRUE)), 0:3),
                  label = "B&G"),
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE)), 0:1),
                  label = "B"),
             list(method = "restyle",
                  args = list(list(visible = c(TRUE, TRUE)), 2:3),
                  label = "G")))
    )
  )
)

数据：

#  x y z gender eyes
#  1 1 1      M    B
#  2 2 2      M    G
#  3 3 3      M    B
#  4 4 4      F    G
#  5 5 5      F    B
#  6 6 6      F    G

This is the output, which does not work at all:

Edit
例如，如果F and B被选中，我希望只显示一个数据点，即(5, 5).

当你创建这个时plotly目的，plotly将其分为五道。因此，当您想要使用可见性时，您需要解决这些跟踪中的每一个。如果您有任何疑问，请告诉我！

I used gg1找到五个痕迹以及每个痕迹中的内容。你可以看看gg1在源窗格中或plotly_json().

通常（并非总是！），您会在以下位置找到痕迹：gg1$x$data where gg1 is the plotly object.

有五处痕迹。对于每个args，每条迹线都需要 T 或 F 来提高可见性。

• 第一条迹线仅包含 (5, 5)，即 F B
• 第二条迹线包含 (1, 1) 和 (3, 3)；那些都是MB
• 第三条迹线包含 (4, 4) 和 (6, 6)；那些都是F G
• 第四条迹线包含 (2, 2)；那是MG
• 第五条迹线包含所有迹线使用的颜色渐变

这是代码：

gg1 = plotly_build(gg) 

ggplotly(gg) %>% 
  layout(
    updatemenus = list(

      list(y = 1,
           buttons = list(
             list(method = "restyle",
                  args = list("visible", as.list(unlist(rep(T, 5)))),
                  label = "F&M"),
             list(method = "restyle",
                  args = list("visible", list(T, F, T, F, T)),
                  label = "F"),
             list(method = "restyle",
                  args = list("visible", list(F, T, F, T, T)),
                  label = "M")
             ) # end button
           ),  # end first button list
      list(y = .8,
           buttons = list(
             list(method = "restyle",
                  args = list("visible", as.list(unlist(rep(T, 5)))),
                  label = "B&G"),
             list(method = "restyle",
                  args = list("visible", list(T, T, F, F, T)),
                  label = "B"),
             list(method = "restyle",
                  args = list("visible", list(F, F, T, T, T)),
                  label = "G")
             ) # end button
           ) # end second menu list
    ) # end updatemenus
  ) # end layout

Update

根据我们的评论，我认为目前不可能使用updatemenus相互交互的样式按钮。