Интерактивный выбор в ggplotly с помощью geom_hex () scatterplot

Я пытаюсь создать матрицу точечного графика с интерактивным выбором между элементами geom на отдельных графиках матрицы. Это работает, когда я имею дело с geom_points (внутри ggpairs ()). Когда пользователь выбирает точки на любом из 3 нижних левых отдельных графиков матрицы, он может видеть точки, выделенные на других графиках матрицы. Ниже приведен простой пример:

library(GGally)
library(ggplot2)
library(plotly)
dat = mtcars[,1:3]
p <- ggpairs(dat)
ggplotly(p)

Однако в моем случае я собираюсь использовать geom_hex вместо geom_points. Я надеюсь разработать способ, с помощью которого пользователь может выделить шестиугольник (и) в отдельной матрице и увидеть все шестиугольники в других отдельных матрицах, которые содержат хотя бы одно из наблюдений, составляющих этот исходный шестиугольник (и).

Я полагаю, что это может быть более сложным шагом, потому что шестиугольники представляют собой сводные данные, которые объединяют несколько наблюдений. Ниже мой прогресс в достижении этой цели:

my_fn <- function(data, mapping, ...){
  p <- ggplot(data = data, mapping = mapping) + geom_hex(binwidth=3)
  p
}
p <- ggpairs(dat, lower = list(continuous = my_fn))
ggplotly(p)

Когда я наводю курсор на отдельные шестиугольники, я получаю интерактивную информацию об их числе (которое мне нравится). Однако, когда я пытаюсь выбрать шестиугольник (и) в одной матрице, я не вижу соответствующих шестиугольников, которые содержат хотя бы одно наблюдение исходного шестиугольника.

Я относительно знаком с Шини и Р. Если вам известен метод, который я могу использовать для решения этой проблемы, пожалуйста, поделитесь!

=============== Информация о сеансе ===============

R version 3.3.2 (2016-10-31)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X Mavericks 10.9.5

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] data.table_1.10.0  shiny_0.14.2       hexbin_1.27.1      plotly_4.5.6.9000 
[5] ggplot2_2.2.0.9000 GGally_1.3.0      

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.8        colourpicker_0.3   RColorBrewer_1.1-2 plyr_1.8.4        
 [5] prettyunits_1.0.2  base64enc_0.1-3    tools_3.3.2        progress_1.1.2    
 [9] digest_0.6.10      jsonlite_1.1       tibble_1.2         gtable_0.2.0      
[13] viridisLite_0.1.3  lattice_0.20-34    DBI_0.5-1          crosstalk_0.3.1   
[17] yaml_2.1.14        stringr_1.1.0      dplyr_0.5.0        httr_1.2.1        
[21] htmlwidgets_0.8    grid_3.3.2         reshape_0.8.6      R6_2.2.0          
[25] purrr_0.2.2        tidyr_0.6.0        reshape2_1.4.2     magrittr_1.5      
[29] scales_0.4.1.9000  htmltools_0.3.5    assertthat_0.1     mime_0.5          
[33] xtable_1.8-2       colorspace_1.3-2   httpuv_1.3.3       labeling_0.3      
[37] stringi_1.1.2      miniUI_0.1.1       lazyeval_0.2.0     munsell_0.4.3 

Ответы на вопрос(0)

Ваш ответ на вопрос