Tidyverse模拟——将数据转换为TIBLE格式

我正在尝试使用tidyverse在R中运行模拟。这段代码可以工作，但不能很好地扩展到多个变量

关于如何改进这一点有什么想法吗？我试过

purr

，但没有成功

下面的示例从正态分布中提取5个值，并重复3次。我怎么能把它重复三次而不是三次呢

n = 5

x=1:n
y1 = rnorm(n)
y2 = rnorm(n)
y3 = rnorm(n)

# put data into tibble
df <- tibble(x=x, y1=y1, y2=y2, y3=y3)

# Tidy data -- go from wide to long
df <- pivot_longer(df, cols=starts_with('y'))

# Make plot
ggplot(df, aes(x=x, y=value, group=name, color=name))+
  geom_line()

n=5
x=1:n
y1=rnorm（n）
y2=rnorm（n）
y3=rnorm（n）
#将数据放入TIBLE
df如果我们需要
复制
，那么

library(dplyr)
library(tidyr)
library(stringr)
library(ggplot2)
n <- 5
rpl <- 3
replicate(rpl, rnorm(n), simplify = FALSE) %>% 
      set_names(str_c('y', seq_along(.))) %>%
      as_tibble %>%
      mutate(x = row_number()) %>%
      pivot_longer(cols = starts_with('y')) %>%
      ggplot(aes(x=x, y=value, group=name, color=name))+       
        geom_line()

库（dplyr）
图书馆（tidyr）
图书馆（stringr）
图书馆（GG2）
n%
可存储%>%
变异（x=行数（））%>%
枢轴长度（cols=以（'y'）开头）%>%
ggplot（aes（x=x，y=value，group=name，color=name））+
geom_线（）