使用input_select（）过滤后动态设置ggvis比例

Question

这是dynamic filtering with input_select() using ggvis in R的后续内容。

根据过滤后的数据动态设置y比例的域名的尝试有什么问题？

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

~mpg，.(mpg)和.$mpg都无效。

Answer 1

确保首先加载dplyr：

    library(dplyr)