使用Crosstalk和Plotly过滤直方图而不使用group参数

如何解决使用Crosstalk和Plotly过滤直方图而不使用group参数

我正在创建一个项目，希望将交互式直方图嵌入到从R Markdown文档生成的html页面中。由于与交互式直方图的数量和潜在的使用量相关的成本，因此Shiny在该项目中不是可行的方法，因此，我试图为交互式直方图嵌入html小部件，该小部件可以使用{{3 }}和Crosstalk。到目前为止，在group中使用ggplot(aes())参数时，我已经能够创建可过滤的直方图（下面包含了reprex）。最终，我想使用多个变量来过滤直方图，如果我使用的是group参数，则会引起问题。

有没有一种方法可以使用Crosstalk和Plotly过滤直方图而无需使用group参数？

谢谢！

library(crosstalk)
library(plotly)
library(reprex)

shared_mtcars <- SharedData$new(mtcars)
bscols(widths = c(3,NA),list(
         filter_checkBox("cyl","Cylinders",shared_mtcars,~cyl,inline = TRUE)
       ),plotly::ggplotly(shared_mtcars %>% 
                          ggplot(aes(x = mpg,group = factor(cyl))) + 
                          geom_histogram(fill = "pale green",color = "black") + 
                          theme(legend.position = "none"))
)