R plotly 分组箱线图的下拉选项事件

Question

我希望使用plotly下拉事件显示不同分组的箱线图，但是迄今为止我还没有实现：

第一个图显示了预期的plotly输出，其中dropdown = "4"（使用ggplot获得）。第二个图是我得到的...

library(tidyverse)
library(plotly)


dat <- mtcars %>%
    filter(cyl == 4 | carb == 4) %>%
    group_by(cyl, carb, am) %>%
    summarise(boxplot= list( setNames(boxplot.stats(disp)$stats,
                                      c('lower_whisker','lower_hinge','median','upper_hinge','upper_whisker')) )) %>%
    unnest_wider(boxplot) %>%
    arrange(cyl, carb, am) %>%
    ungroup() %>%
    mutate_at(vars(cyl, carb, am), as.character)

cylinders <- unique(dat$cyl)

dat %>% 
    filter(cyl == 4) %>%
    ggplot(aes(
        x = carb, 
        lower = lower_hinge, 
        upper = upper_hinge, 
        middle = median, 
        ymin = lower_whisker, 
        ymax = upper_whisker, 
        colour = am))  + 
    geom_boxplot(stat = "identity")

p <- plot_ly(type = "box")
for(icyl in cylinders){
  dataFilt <- filter(dat, cyl == icyl)
  p <- add_trace(p, 
               visible = TRUE,
               q1 = dataFilt$lower_hinge, 
               median = dataFilt$median,
               q3 = dataFilt$upper_hinge, 
               lowerfence = dataFilt$lower_whisker,
               upperfence = dataFilt$upper_whisker,
               x = dataFilt$carb,
           color = dataFilt$am,
               name=icyl
               )
}


p %>%
  layout(boxmode = "group",
      updatemenus = list(
      list(
        y = 0.8,
        buttons = list(

          list(label = cylinders[1],
               method = "update",
               args = list(list(visible = c(TRUE, FALSE, FALSE)))),
        list(label =  cylinders[2],
               method = "update",
               args = list(list(visible = c(FALSE, TRUE, FALSE)))),
          list(label =  cylinders[3],
               method = "update",
               args = list(list(visible = c(FALSE, FALSE, TRUE))))    
))))

- user1420372

---

我也遇到了类似的问题。手动提供Plotly的分位数/中位数等仍然不能正常工作。 - PhilippPro

Answer 1

我无法让它与循环一起工作，但我确实使它按照您的期望工作。我没有使用您手动创建铰链、触须等的变化，而是使用了add_boxplot。

在layout中，您会看到有6个T或F。这是因为plotly不将分组保存为函数，而是将数据转换为两个单独的跟踪。例如，前两个是cyl == "4" & am == "0"和cyl == "4" & am == "1"

cylinders <- unique(mtcars$cyl) # kept similar from original work

# added to simplify build
mtcars <- mtcars %>% mutate_at(vars(cyl, carb, am), as.character)

# made all cylinder options subplots
plot_ly() %>% 
  add_boxplot(x = ~carb, y = ~disp, color = ~am, colors = "Set2",
              data = mtcars[mtcars$cyl == cylinders[1], ],
              visible = T, inherit = F) %>%                 # visible
  add_boxplot(x = ~carb, y = ~disp, color = ~am, colors = "Set2",
              data = mtcars[mtcars$cyl == cylinders[2], ],
              visible = F, inherit = F) %>%                 # invisible
  add_boxplot(x = ~carb, y = ~disp, color = ~am, colors = "Set2",
              data = mtcars[mtcars$cyl == cylinders[3], ],
              visible = F, inherit = F) %>%                 # invisible
  layout(updatemenus = list(
    list(
      y = 0.8,
      buttons = list(
        list(label = cylinders[1],       # four cyl
             method = "restyle",
             args = list("visible", list(T, T, F, F, F, F))),
        list(label =  cylinders[2],      # six cyl
             method = "restyle",
             args = list("visible", list(F, F, T, T, F, F))),
        list(label =  cylinders[3],      # eight cyl
             method = "restyle",
             args = list("visible", list(F, F, F, F, T, T)))
      ) # end buttons
    )) # end updatedmenus list list
  ) # end layout

这是 4 缸 plotly 和您原始的 4 缸 ggplot。

- Kat