只有选定点之间的颜色线 - ggvis

Question

在下面的代码中，对于mtcars数据集，如果单击一个点，则具有相同齿轮数的汽车将变为红色。如您所见，在相同数量齿轮的汽车之间存在线条。我想做的是使线条也变红。也就是说，如果我选择一个点，具有相同齿轮数的点以及它们之间的线变为红色。任何帮助都将非常感激。

library(ggvis)

lb <- linked_brush(keys = 1:nrow(mtcars), "red")


mtcars %>%
  ggvis(~mpg, ~wt) %>%
  layer_points(fill := lb$fill, fill.brush := "red") %>%
  group_by(gear) %>%
  layer_lines() %>%
  lb$input() %>%
  set_options(width = 300, height = 300) %>%
  layer_points(fill := "red", data = reactive(mtcars[mtcars$gear %in% mtcars[lb$selected(),]$gear, ]))