R 如何使用ggvis在水平轴上为直方图选择多个变量？

我只是想通过取不同概率的随机样本的平均值来说明中心极限定理。分配。我有以下代码，其中我增加了指数分布的样本大小

set.seed(12577) # for reproducability
n <- 50 
lambda <- 0.2  
out <-  rexp(5000, lambda)
for(i in seq_along(sample_size)) {
  out <- cbind(out, c(replicate(sample_size[i], mean(rexp(n, lambda))) , rep(NA, 5000 - sample_size[i] )))
}
out <- as.data.frame(out)
names(out) <- c("EXP_SAMPLE_5000", paste0("RND_SAMPLE_", sample_size))

更新：在@Martin Schmelzer的评论之后，我添加了虚拟对象，但现在直方图没有意义

out %>%  ggvis(x = ~ 100, y = input_select(label = "Choose what to plot:",
                                choices = names(out),
                                #multiple=TRUE,
                                map = as.name)) %>% layer_histograms()

---

检查这个，我看到了，我添加了虚拟，现在正在绘图，但仍然，但直方图没有任何意义。。。可能有用。检查这个，我明白了，我添加了虚拟，现在正在绘图，但仍然，但直方图没有任何意义。。。可能有用。

out %>%  ggvis(x = ~ 100, y = input_select(label = "Choose what to plot:",
                                choices = names(out),
                                #multiple=TRUE,
                                map = as.name)) %>% layer_histograms()