R 有没有一种方法可以在ggvis中结合基于变量和输入_滑块的大小？

通过对和页面中的代码进行少量修改，我得到了以下两个代码片段：

mtcars %>% 
  ggvis(~mpg, ~disp) %>% 
  layer_points(size=~vs) %>%
  scale_numeric("size", range = c(50,500))

mtcars %>% 
  ggvis(~mpg, ~disp) %>%
  layer_points(size := input_slider(50, 500, value = 50))

第一个生成一个绘图：

第二个生成一个类似的图，其中点大小由滑块控制

我想要的是如何将两者结合起来？也就是说，如何使相对大小由变量确定，而这些可能大小的范围由滑块确定

似乎需要以下内容，但

range

不能将

input\u slider

作为赋值（

domain

可以，但不能达到预期的结果。）

问题：如何使相对大小由变量确定，而这些可能大小的范围由滑块确定？

mtcars %>% 
  ggvis(~mpg, ~disp) %>% 
  layer_points(size:=~vs) %>% 
  scale_numeric("size", clamp = TRUE,
                range = input_slider(50, 500, map = function(x) c(x, 10*x))
  )