r - 具有交互式 x 轴范围的 ggvis 折线图

Question

我希望能够

在 ggvis 中绘制折线图

添加两个交互式控件，允许我在图表上设置最小和最大 x 值

这听起来很简单——我的代码是:

minx = minx = input_numeric(1, 'Min x-val')
maxx = input_numeric(1, 'Max x-val')

data.frame(train.dt) %>% 
ggvis(x = ~plot_idx, y = ~val) %>%
layer_lines() %>% add_axis('x') %>%
scale_numeric('x', domain = c(minx, maxx), clamp = T)

但是，这不起作用。我收到此错误消息:

"Error in r[i1] - r[-length(r):-(length(r) - lag + 1L)] : non-numeric argument to binary operator".

如果我用例如替换域参数中的 minx 和 maxx 1 和 10，我的图表绘制得很好(但是是静态的)。有任何想法吗？

谢谢!

Answer 1

这可能会有所帮助。由于没有可重复的数据，我决定使用 CRAN 手册中的示例。你需要做的是使用 input_slider并为 x 轴选择最小值和最大值。在此示例中，您有一个双端 slider 。这意味着您可以同时选择/更改最小值和最大值。 input_slider进入 scale_numeric 中的域.

# Set up input_slider
foo <- input_slider(1, 10, c(1, 6))

mtcars %>%
ggvis(x = ~wt, y = ~mpg, stroke = ~factor(cyl)) %>%
layer_lines() %>%
scale_numeric("x", domain = foo, clamp = TRUE)