在同一图表中的交互 - ggvis

Question

我有以下ggvis闪亮的代码，它会产生2个图形与R随附的mtcars数据集。在第一个图表中，如果我双击一个点，所有的点第二个图形中相同的齿轮数量（mtcars $齿轮）变为红色。汽车可以有3,4或5个档位。所以，如果我点击第一个图表中有3个齿轮的点，那么在第二个图表中，所有有3个齿轮的车辆都变为红色点。

这是server.R代码 -

library(ggvis) 
library(dplyr) 

mtcars$id <- seq_len(nrow(mtcars)) 


shinyServer(function(input, output, session) { 

    lb <- linked_brush(keys = mtcars$id, "red") 

    mtcars %>% 
    ggvis(~mpg, ~wt) %>% 
    layer_points(fill := lb$fill, fill.brush := "red") %>% 
    lb$input() %>% 
    set_options(width = 300, height = 300) %>% 
    bind_shiny("plot1") # Very important! 

    # A subset of mtcars, of only the selected points 
    selected <- lb$selected 
    mtcars_selected <- reactive({ 
    mtcars[selected(), ] 
    }) 

    mtcars_selected1 <- reactive({ 
    print(mtcars[mtcars$gear == mtcars[selected(), ]$gear, ]) 
    }) 

    vis <- reactive({ 
    mtcars %>% 
    ggvis(~mpg, ~wt) %>% 
    layer_points() %>% 
    add_data(mtcars_selected1) %>% 
    layer_points(fill := "#dd3333") %>% 
    set_options(width = 300, height = 300) 
    }) 

    vis %>% bind_shiny("plot2") 
}) 

这是ui.R码 -

library(ggvis) 

shinyUI(bootstrapPage(
    ggvisOutput("plot1"), 
    ggvisOutput("plot2") 
)) 

我的问题是，是否有可能做到这一点在同一张图上？那就是我想点击一个点，同一个图中所有具有相同齿轮数的点将变成红色。我已经搜索了很长时间，我似乎找不到任何方向。任何帮助将不胜感激。

Answer 1

您可以将增加具有相同的齿轮为选定的穴位点的第一条曲线再添层：

mtcars %>% 
    ggvis(~mpg, ~wt) %>% 
    layer_points(fill := lb$fill, fill.brush := "red") %>% 
    lb$input() %>% 
    set_options(width = 300, height = 300) %>% 
    #the next line will add red points that have the same gear as the ones selected 
    layer_points(fill := "red", data = reactive(mtcars[mtcars$gear %in% mtcars[lb$selected(),]$gear,])) %>% 
    bind_shiny("plot1") # Very important!