如何在 R 的 for 循环中引用变量名？答案

【问题标题】：How to reference variable names in a for loop in R?如何在 R 的 for 循环中引用变量名？
【发布时间】：2018-04-28 22:38:38
【问题描述】：

我正在尝试在 R 的 for 循环中引用变量名。例如，如果我想将以下每个变量从数字更改为字符串

xtable<- tbl_df(cbind(x1=c(1,2,3), x2=c(3,4,5)))

for (varname in names(xtable)) {
 xtable$varname<- as.character(xtable$varname)
}

或通过在每个变量名后添加“a”来重命名每个变量

for (varname in names(xtable)) {
 dplyr::rename(xtable, varname = paste0(varname,'a', sep='') )
}

一般来说，我在将 for 循环中的索引变量“varname”引用为它所代表的变量名而不是单词“varname”时遇到了问题。

【问题讨论】：

在这两个例子中，都不需要for 循环
xtable[,varname]
@docendodiscimus 如果没有 for 循环，我该怎么做？但是对于更复杂的复杂情况，如何在 for 循环中引用索引变量作为变量名本身？
@Amazonian 你想要达到的目标可以用一行来完成：data.frame(lapply(xtable, as.character)) 所以不需要for 循环
@MehdiNellen 谢谢！这适用于第一个 for 循环，但我无法让它适用于第二个......

标签： r variables for-loop indexing dplyr

【解决方案1】：

请注意，dplyr 库中已弃用 tbl_df。但是你可以轻松地使用 data.frame 或 as.data.frame。

xtable <- data.frame(x1=c(1,2,3), x2=c(3,4,5))
str(xtable) # shows the structure of the data.frame

R 允许我们轻松执行向量运算，从而消除了许多循环的要求。

# lapply applies a function to every column in a data.frame
xtable <- as.data.frame(lapply(xtable,as.character))
str(xtable) # shows the structure of the data.frame

# we can directly input into the names() of an object
# paste0 has a default separator of '' 
# If we put a vector into paste0 it will return a vector!
names(xtable) <- paste0(names(xtable),"a")
str(xtable)

但是如果你真的需要在循环中引用一个变量名（针对不同的问题）

for(varname in names(xtable)) {
  print(xtable[varname]) # xtable[varname] outputs a table with one column including header
  print(xtable[[varname]]) # xtable[[varname]] outputs only the contects of the varname vector
}

【讨论】：

另外，如果您只想更新一个名称...请使用 [] 来完成。 names(xtable)[2]
as.tibble 是 tbl_df 的替代品

【解决方案2】：

正如其他人所提到的，在这两种情况下都不需要使用 for 循环。 dplyr 中有两个方便的函数，称为 mutate_all 和 mutate_if，可以让您非常轻松地完成第一种情况：

library(dplyr)

# Convert all columns to character
xtable %>%
  mutate_all(as.character)

# Convert all numeric columns to character
xtable %>%
  mutate_if(is.numeric, as.character)

结果：

# A tibble: 3 x 2
     x1    x2
  <chr> <chr>
1     1     3
2     2     4
3     3     5

对于第二种情况，您也可以使用setNames 并将其与第一种情况链接：

xtable %>%
  mutate_all(as.character) %>%
  setNames(paste0(names(xtable), "a"))

结果：

# A tibble: 3 x 2
    x1a   x2a
  <chr> <chr>
1     1     3
2     2     4
3     3     5

【讨论】：