Question

您好我正在尝试使用for循环命名变量，因此我获得了变量的动态名称。

for (i in 1:nX) {
    paste("X",i, sep="")=datos[,i+1]
    next
}

Answer 1

使用assign，如：

x <- 1:10

for(i in seq_along(x)){
  assign(paste('X', i, sep=''), x[i])
}

Answer 2

当有很多变量并经常查找时，使用assign是个好主意。环境中的查找比向量或列表中的查找更快。数据对象的单独环境是个好主意。

另一个想法是使用hash包。它以与环境一样快的速度执行查找，但使用起来更加舒适。

datos <- rnorm(1:10)
library(hash)
h <- hash(paste("x", 1:10, sep=""), datos)
h[["x1"]]

这是10000个变量的时间比较，查找10 ^ 5次：

datos <- rnorm(1:10000)
lookup <- paste("x", sample.int(length(datos), 100000, replace=TRUE), sep="")

# method 1, takes 16s on my machine
names(datos) <- paste("x", seq_along(datos), sep="")
system.time(for(key in lookup) datos[[key]])

# method 2, takes 1.6s on my machine
library(hash)
h <- hash(paste("x", seq_along(datos), sep=""), datos)
system.time(for(key in lookup) h[[key]])

# method 3, takes 0.2s on my machine
e <- new.env()
for(i in seq_along(datos)){
  assign(paste('x', i, sep=''), datos[i], envir=e)
}
system.time(for(key in lookup) e[[key]])

然而，方法1的矢量化版本是最快的，但并不总是适用

# method 4, takes 0.02s
names(datos) <- paste("x", seq_along(datos), sep="")
system.time(datos[lookup])

如何为动态名称变量赋值

2 个答案: