R 如何生成两个相同的数字并插入set.seed（）和文件名？

我想制作两个相同的数字，并将它们插入set.seed（）和文件名中，如下所示

    set.seed(8888)
    write(rnorm(500),"theta_8888_g.txt", sep=",", ncol=500)
    set.seed(9999)
    write(rnorm(500),"theta_9999_g.txt", sep=",", ncol=500)
     ,,,,,,,
    set.seed(111111)
    write(rnorm(500),"theta_1111_g.txt", sep=",", ncol=500)

先谢谢你

y <- 8888
set.seed(y)
write(rnorm(500), paste0("theta_", y, "_g.txt"), sep=",", ncol=500)

或

y
write.theta <- function(x) {
  set.seed(x)
  write(rnorm(500), paste0("theta_", x, "_g.txt"), sep=",", ncol=500)
}

write.theta(8888)

y <- c(8888, 9999, 1111)
sapply(y, write.theta)