Two keys to filter on with crosstalk about crosstalk HOT 1 OPEN

library(plotly)
library(crosstalk)

df <- data.frame(x = rnorm(100),
               y = rnorm(100),
               class = factor(rep(1:5, each = 20)),
               peeps = rep(c(
                 "bob","joe","jane"
               ),length.out = 100),
               grouping_first = factor(rep(1:2, each = 50)),
               grouping_second = factor(rep(1:2, length.out = 50)))

theme_set(theme_minimal())

sd <- SharedData$new(df, group = "individual")

c1 <- filter_checkbox(id = "group1",sharedData = sd,group = ~grouping_first,
              label = "random dimension 1")
c2 <- filter_checkbox(id = "group2",sharedData = sd,group = ~grouping_second,
              label = "random dimension 2")

g1 <- sd %>% ggplot(aes(x =x ,y =y, color = class, text = peeps)) + 
geom_point() + labs(title = "Everyone")

i1 <- ggplotly(g1, tooltip = "text") %>%
highlight(on = "plotly_click",off = "plotly_doubleclick") 

bscols(widths = c(3,9),
     list(c1,c2), i1)

sd <- SharedData$new(df,key = ~peeps,
                     group = "individual")