R：在循环内动态调用变量

Question

我需要调用循环中的变量并将其用作我的列名：

这是一个示例数据集：

mtcars.df <- mtcars

预期输出：

mtcars.df <- mtcars.df %>% add_column(a1 = sample (1:4, 32, replace = TRUE), b1 = sample (1:4, 32, replace = TRUE), c1 = sample (1:4, 32, replace = TRUE))

所以需要在循环中创建 a1、b1 和 c1 并重命名为 a1、b1 和 c1。原始数据集中的名称更长（并且组合不同），但这是在变量 mpg.filename 中定义的。

这是我到目前为止所尝试的：第一个显然没有给出想要的结果，但它只是为了展示我想要实现的目标。

mpg.filename <- c("a1.file", "b1.file", "c1.file")
for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$i <- sample (1:4, 32, replace = TRUE)
}

for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$temp.var <- sample (1:4, 32, replace = TRUE)
  temp.name <- paste0 (sample.name) %>% rlang::parse_expr()
  mtcars.df <- mtcars.df %>% rename (eval (sample.name) = temp.var)
}

for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$temp.var <- sample (1:4, 32, replace = TRUE)
  temp.name <- paste0 (sample.name) %>% rlang::parse_expr()
  mtcars.df <- mtcars.df %>% rename (syms(sample.name) = temp.var)
}

我也试过get、as.symbol、parse (text = "sample.name")，但也没有用。

感谢您的帮助。我曾尝试在论坛上查看其他答案，但它们似乎不适用或不起作用。

using eval() on string to access object attributes in R

call columns from inside a for loop in R

Getting strings recognized as variable names in R

How to evaluate an expression with variables in R?

Answer 1

您的第一次尝试很接近！当您想使用字符访问/创建 data.frame 中的列时，您需要使用 [[ 而不是 $。如果您只需要这样做，就不需要符号/解析/其他复杂的废话。

for(i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df[[sample.name]] <- sample(1:4, 32, replace=TRUE)
}

Answer 2

让我知道这是否成功 -

mpg.filename <- c("a1.file", "b1.file", "c1.file")
for (i in 1:length(mpg.filename)) {
  sample.name <- unlist(strsplit(as.character(mpg.filename[i]), '.', fixed = TRUE))[1]
  mtcars.df$i <- sample (1:4, 32, replace = TRUE)
  colnames(mtcars.df)[length(mtcars.df)]<-paste(sample.name)
}