如何使用R中的循环创建变量A1，A2，...，A100？

Posted 2021-03-27

我正在尝试创建1000个变量，我想用索引号命名。我不知道如何创建这些新变量。

for(i in 1:1000) {
  Ui <- rnorm(200,0,1)
}

答案

这是人们想要做的常见事情，特别是当它们来自其他编程语言时。但是，有更好的方法来完成同样的事情，你不应该遵循建议使用assign;这是一个糟糕的建议，你可能会后悔。

我们在R中做这种事情的方式是使用列表，特别是命名列表：

x <- replicate(1000,rnorm(200,0,1),simplify = FALSE)
x <- setNames(x,paste0("A",seq_along(x)))

现在x是一个长度为1000的命名列表，每个元素是一个长度为200的矢量，它来自正常（0,1）分布。

您可以根据需要通过x[[1]]或x[["A1"]]参考每一个。此外，由于它们都在同一个对象中，因此您可以使用lapply等工具轻松地作为一个组进行操作。

几乎任何时候你发现自己想要创建一个具有相似名称的对象序列，这应该是你应该使用列表的信号。

另一答案

使用如此多的变量使您的环境混乱没有意义，请尝试将它们存储在命名列表中

l1 <- setNames(lapply(1:5, function(x) rnorm(5)), paste0("A", 1:5))
l1

#$A1
#[1]  0.4951453 -1.4278665  0.5680115  0.3537730 -0.7757363

#$A2
#[1] -0.11096037  0.05958700  0.02578168  1.00591996  0.54852030

#$A3
#[1]  0.1058318  0.6988443 -0.8213525 -0.1072289  0.8757669

#$A4
#[1] -0.6629634  0.8321713 -0.3073465 -0.2645550 -1.0064132

#$A5
#[1]  2.2191246  0.2054360 -0.1768357  1.6875302 -1.1495807

现在您可以访问单个列表元素

l1[["A1"]]
#[1] 0.4951453 -1.4278665  0.5680115  0.3537730 -0.7757363

---

此外，其他方法是一起生成所有数字，然后split他们进入列表。

groups = 5
each = 5

setNames(split(rnorm(groups * each), rep(seq_len(groups), each = each)), 
         paste0("A", seq_len(groups)))

另一答案

我同意其他人的意见，这不是一个好主意。无论如何，要回答你的问题，你将如何做到这一点

k <- 1000 # number of variables
n <- 200 # sample size of each variable
for(i in 1:k){
assign(paste0("variable", i), rnorm(n, 0, 1))}
variable1
-0.012947062  0.728284959 -1.627796366  0.003471491 ...

但是，我个人更喜欢另一种解决方案。到目前为止，这两个答案建议使用列表。我发现lsts非常繁琐，特别是如果你是R的新手。所以我建议创建一个矩阵，其中每列包含一个变量。

# creates a matrix
m <- matrix(rep(NA, n*k), ncol= k)
# generates rnorm() in each column
for(i in 1:k){
m[ , i] <- rnorm(n, 0, 1)
}

# now you can name the columns
colnames(m) <- paste0("variable", 1:k)
m
        variable1   variable2    ...
 [1,]  0.30950749 -2.07388046
 [2,] -1.13232330 -0.55511476
  ...