用R中的purrr模拟随机游走

Question

purrr可以用比基数R更少的代码行来模拟随机游走吗？

例如，purrr中会出现以下情况？

n <- 5
x <- numeric(n)
for(i in 2:n){
  x[i] <- x[i-1] + rnorm(1)
}

编辑：@Imo正是我想要的。为了更进一步，我假设可以创建随机游走并使用以下代码绘制

tibble(x = 1:1000, y = cumsum(rnorm(1000, mean = 0))) %>% 
  ggplot(aes(x=x,y=y))+
  geom_point()+
  geom_line()