使用for循环构造变量名

Question

我需要构造一组变量，其中变量应基于2部分构造：a）name b）一个用value[1]加强的数字。对于不断增加的数字，我使用了for循环。我设法创建了一个字符串，参见test1，但没有增加变量名称，参见test2。

鉴于下面提供的错误代码，我假设R不希望我使用变量名中的“paste0”来构造某些东西。

我的R代码：

numbers_for_variable_name <- c(1,2,3)

# Test-1 [works]
# Construct string with increasing number.
for (i in numbers_for_variable_name) {
    cat(paste0("number-", i, "\n"))
}
# Test-2 [does not work]
# Construct variable name with increasing number.
for (i in numbers_for_variable_name) {
    paste0("number-", i) <- "p1"
}

“测试1”的结果：

number-1
number-2
number-3

我得到的test2错误是：

Error in paste0("number-", i) <- "p1" : 
  target of assignment expands to non-language object

“test2”的预期结果是：

number-1 <- "p1"
number-2 <- "p1"
number-3 <- "p1"

Answer 1

要使OP的代码起作用，应该是assign，为值分配一个标识符

for (i in numbers_for_variable_name) {
   assign(paste0("number-", i),  "p1")
 }

请注意，带有-的标识符不是标准的，但_是可以的。因此，如果我们想获取值，请使用反引号

`number-1`
#[1] "p1"

`number-2`
#[1] "p1"

但是，不建议在全局环境中有多个对象。

Answer 2

您应该使用随R-a列表一起提供的结构。您可以使用lApplication或lApplication（或只是循环）为其命名、轻松子集或应用函数。

numbers_for_variable_name <- c(1,2,3)

myresult <- vector("list", length = length(numbers_for_variable_name))
names(myresult) <- paste("number-", numbers_for_variable_name, sep = "")

for (i in numbers_for_variable_name) {
  myresult[[i]] <- i
}

> myresult
$`number-1`
[1] 1

$`number-2`
[1] 2

$`number-3`
[1] 3

子集：

> myresult[["number-3"]]
[1] 3

将函数应用于所有列表元素：

> lapply(myresult, FUN = function(x) x^2)
$`number-1`
[1] 1

$`number-2`
[1] 4

$`number-3`
[1] 9