Question

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

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”时遇到了问题。

Answer 1

正如其他人所提到的，在两种情况下都不需要使用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

Answer 2

请注意，tbl_df在dplyr库中被删除。但您可以轻松地使用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
}

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

2 个答案: