根据分类变量

Question

我想根据数据中一列离散值来过滤由plotly创建的图表。最终目标是能够使用按钮来更新过滤器值，所以我不想事先过滤数据。

library(plotly)    

df <- data.frame(group1 = rep(c('low', 'high'), each = 25),
                 x = rep(1:5, each = 5),
                 group2 = letters[1:5],
                 y = c(runif(25, 0, 2), runif(25, 3, 5)))

plot_ly(df, x = ~x, y = ~y, type = 'scatter',
        mode = 'line',
        color = ~group2,
        transforms = list(
            list(
                type = 'filter',
                target = ~group1,
                operation = '=',
                value = 'high'
            )
        )
)

我希望这能给出以下图表：

但是它给出了这个：

似乎正在过滤错误的变量。为什么没有按我期望的方式过滤数据？

Answer 1

似乎问题在于target列表的transforms参数只能使用plot_ly属性的名称，而不能使用原始数据。这段代码有效：

library(plotly)    

set.seed(1)
df <- data.frame(group1 = rep(c("low", "high"), each = 25),
                 x = rep(1:5, each = 5),
                 group2 = letters[1:5],
                 y = c(runif(25, 0, 2), runif(25, 3, 5)))

plot_ly(df, x = ~x, y = ~y, customdata=~group1, type = 'scatter',
        mode = 'line',
        color = ~group2,
        transforms = list(
          list(
            type = 'filter',
            target = 'customdata',
            operation = '=',
            value = 'high'
          )
        )
)

并生成与此相同的图表

plot_ly(df %>% filter(group1=="high"), x = ~x, y = ~y, type = 'scatter',
        mode = 'line',
        color = ~group2
)

当然，您可以用customdata代替ids，而用plot_ly等代替，{{1}}允许但不影响图表的美观。