r - Rでは、ggvisで複数の曲線を描く方法は?

Question

Rでは、ggvisで複数の曲線を描く方法は? よくわからないのでforループでやってみましたが、

m <- 10
n_max <- 100
n <- seq.int(1, n_max, 1)
s <- matrix(2*(rbinom(n_max*m, size=1, prob=0.5) - 0.5), ncol = m)
x_estimate <- apply(s, 2, function(z) cumsum(z)/seq_along(z))

data <- data.frame(x_estimate, n)
v <- data %>% 
    ggvis(x = ~n, y = ~x_estimate[,c(1)]) %>%
    layer_lines() %>%
    scale_numeric("y", domain = c(-0.5, 0.5), nice = FALSE, clamp = TRUE)
for ( i in 2:m) {
    v <- (v %>% layer_paths(x = ~n, y = ~x_estimate[,c(i)]))
}
v

結果のプロットには、m=10 曲線ではなく 2 つの曲線しかありません。したがって、どういうわけか、for ループは重なり合う曲線をプロットします。何か案は？さらに重要なことは、これを適切に行う方法ggvis?