使用 $ 和字符值动态选择数据框列

我有一个由不同列名组成的向量，我希望能够循环每个列名以从 data.frame 中提取该列。例如，考虑数据集mtcars以及一些存储在字符向量中的变量名称cols。当我尝试从中选择一个变量时mtcars使用动态子集cols，这些工作都不是

cols <- c("mpg", "cyl", "am")
col <- cols[1]
col
# [1] "mpg"

mtcars$col
# NULL
mtcars$cols[1]
# NULL

我怎样才能让它们返回相同的值

mtcars$mpg

此外，我如何循环遍历中的所有列cols获取某种循环中的值。

for(x in seq_along(cols)) {
   value <- mtcars[ order(mtcars$cols[x]), ]
}

你不能做这种子集化$。在源代码中（R/src/main/subset.c） 它指出：

/*$ 子集运算符。
我们需要确保只评估第一个参数。
第二个是需要匹配而不是评估的符号。
*/

第二个论点？什么？！你必须意识到$，就像 R 中的其他所有内容一样（包括例如( , + , ^等）是一个函数，它接受参数并进行计算。df$V1可以重写为

`$`(df , V1)

或者确实

`$`(df , "V1")

But...

`$`(df , paste0("V1") )

...例如永远不会工作，任何其他必须首先在第二个参数中评估的东西也不会工作。您只能传递一个字符串never评价。

而是使用[ (or [[如果您只想提取单个列作为向量）。

例如，

var <- "mpg"
#Doesn't work
mtcars$var
#These both work, but note that what they return is different
# the first is a vector, the second is a data.frame
mtcars[[var]]
mtcars[var]

您可以在没有循环的情况下执行排序，使用do.call构造调用order。下面是一个可重现的示例：

#  set seed for reproducibility
set.seed(123)
df <- data.frame( col1 = sample(5,10,repl=T) , col2 = sample(5,10,repl=T) , col3 = sample(5,10,repl=T) )

#  We want to sort by 'col3' then by 'col1'
sort_list <- c("col3","col1")

#  Use 'do.call' to call order. Seccond argument in do.call is a list of arguments
#  to pass to the first argument, in this case 'order'.
#  Since  a data.frame is really a list, we just subset the data.frame
#  according to the columns we want to sort in, in that order
df[ do.call( order , df[ , match( sort_list , names(df) ) ]  ) , ]

   col1 col2 col3
10    3    5    1
9     3    2    2
7     3    2    3
8     5    1    3
6     1    5    4
3     3    4    4
2     4    3    4
5     5    1    4
1     2    5    5
4     5    3    5