使用plotly更新多个数据属性

Question

我正在尝试更新通过 plotly 生成的图中的多个数据属性。

这是我基于此帖子的脚本:

library(plotly)
library(magrittr)
library(data.table)

X <- data.table(x = c(1, 2, 1, 2), y = c(1, 1, 2, 2), z = rep(c("a", "b"), each = 2))

gg <- ggplot() + geom_point(data = X, aes(x = x, y = y, color = z))

ggplotly(gg) %>% 
  layout(
    updatemenus = list(
      list(
        buttons = list(
          list(method = "restyle",
               args = list(
                 list(x = list(X[z == "a", x])),
                 list(y = list(X[z == "a", y]))
               ),
               label = "a"),
          list(method = "restyle",
               args = list(
                 list(x = list(X[z == "b", x])),
                 list(y = list(X[z == "b", y]))
               ),
               label = "b")
        )
      )
    )
  )

但是，可以看出，更新菜单并未按预期工作。不确定问题是什么。

Answer 1

上述 args 参数中的列表过多。

此外，当调用restyle而不指定跟踪编号时，您将重新设计所有跟踪。

如果您想重新设计单个跟踪，您需要提供其跟踪索引:

library(plotly)
library(magrittr)
library(data.table)

DT <- data.table(x = c(1, 2, 10, 20), y = c(1, 1, 20, 20), z = rep(c("a", "b"), each = 2))

gg <- ggplot() + geom_point(data = DT, aes(x = x, y = y, color = z))

ggplotly(gg) %>% 
  layout(
    updatemenus = list(
      list(
        buttons = list(
          list(method = "restyle",
               args = list(list(x = DT[z == "a", x], y = DT[z == "a", y]), 0L),
               label = "a"),
          list(method = "restyle",
               args = list(list(x = DT[z == "b", x], y = DT[z == "b", y]), 1L),
               label = "b")
        )
      )
    )
  )

我不知道你想达到什么目的。

如果您想在选择“a”时显示迹线“a”，在选择“b”时显示迹线“b”，则此过滤器方法是有问题的，因为它会从图中完全删除迹线（减少数据集），并且一旦迹线被选中，删除后您将无法再重新设计它的样式。

如果您只想切换跟踪可见性，则应使用 visible 参数，而不是修改数据：

DT <- data.table(x = c(1, 2, 10, 20), y = c(1, 1, 20, 20), z = rep(c("a", "b"), each = 2))

gg <- ggplot() + geom_point(data = DT, aes(x = x, y = y, color = z))

ggplotly(gg) %>% style(visible = FALSE, traces = 2) %>% 
  layout(
    updatemenus = list(
      list(
        buttons = list(
          list(method = "restyle",
               args = list(list(visible = c(TRUE, FALSE)), c(0, 1)),
               label = "a"),
          list(method = "restyle",
               args = list(list(visible = c(FALSE, TRUE)), c(0, 1)),
               label = "b")
        )
      )
    )
  )

PS：Plotly.restyle 期望跟踪计数开始从0开始（JS）和 style() 来自 1 (R)

使用 addTraces< /a>/deleteTraces 完成此处 将是另一种方法。但是，如果数据保持不变，我想切换可见性的计算强度较小。