R 使用输入_select（）过滤后动态设置ggvis比例

这是一个后续行动

根据过滤后的数据动态设置

y

scale的域有什么不对

CYLINDER_CHOICES <- unique(mtcars$cyl)

mtcars %>%
  ggvis(~wt, ~mpg) %>%
  filter(cyl == eval(input_select(choices = CYLINDER_CHOICES))) %>%
  scale_numeric("y", domain = c(0, 10 * scales:::precision(~mpg)))

Error in min(x, na.rm = na.rm) : invalid 'type' (list) of argument

气缸\u选择%
ggvis（~wt，~mpg）%>%
过滤器（气缸==评估（输入选择（选择=气缸选择）））%>%
刻度数值（“y”，域=c（0，10*刻度：：：精度（~mpg）））
min（x，na.rm=na.rm）中出错：参数的“类型”（列表）无效

---

~mpg

，或

（mpg）

，或

$mpg

都不起作用。

请确保先加载dplyr：

    library(dplyr)