使用列表中的字符串选择R中的一列[重复]答案

【问题标题】：Using a string from a list to select a column in R [duplicate]使用列表中的字符串选择R中的一列[重复]
【发布时间】：2020-11-12 00:56:52
【问题描述】：

我有一个变量名列表，我想使用列表中的字符串来访问数据框中的列

list<-list("Var1", "Var2", "Var3")
df1 <- data.frame("Var1" = 1:2, "Var2" = c(21,15), "Var3" = c(10,9))
df2<- data.frame("Var1" = 1, "Var2" = 16, "Var3" = 8)

我有 2 个不均匀的数据框，我想通过做一些基本数学来创建一个新列

df1$Var4<-df1$Var1 + df2$Var1

Var4
2
3

但我希望能够通过引用我拥有的变量名称列表来调用我正在添加的列名，我尝试了以下两段代码，但都没有成功

df1$Var4<- df1$List[1]+df1$list[1]

and 

Z<-list[1]
df1$Var4 <- df1$Z + df2$Z

我不想对列名进行硬编码，因为这将创建一个函数，以便在变量名将发生变化的数据帧中使用

任何帮助将不胜感激

【问题讨论】：

@Henrik 我认为这是相关的，但并不是真正的骗局，因为您无法根据链接的问题完全回答这个问题。
你可能是对的@tmfmnk。但我认为它值得链接，因为该问题的核心问题已在规范帖子中得到解答。干杯。

标签： r dataframe

【解决方案1】：

试试这个：

list<-list("Var1", "Var2", "Var3")
df1 <- data.frame("Var1" = 1:2, "Var2" = c(21,15), "Var3" = c(10,9))
df2<- data.frame("Var1" = 1, "Var2" = 16, "Var3" = 8)
#Sum
df1$Var4<- df1[,list[[1]]]+df2[,list[[1]]]

  Var1 Var2 Var3 Var4
1    1   21   10    2
2    2   15    9    3

【讨论】：

谢谢你，我知道有人会很容易回答我错过了

【解决方案2】：

要跟进 Duck 显然正确答案的推理，您的方法不起作用有两个原因：

$ 运算符“不允许计算索引”，因此您不能将字符向量传递给它。见help(`$`)。

`$`(df1,"Var1")
#[1] 1 2

`$`(df1,list[[1]])
#Error in df1$list[[1]] : invalid subscript type 'language'

您试图使用列表对df1 进行子集化。您需要一个字符向量。

list[1]
#[[1]]
#[1] "Var1"

class(list[1])
#[1] "list"

[[ 运算符从列表中选择单个元素。在这种情况下，您需要的字符向量。

list[[1]]
#[1] "Var1"

class(list[[1]])
#[1] "character"

【讨论】：

【解决方案3】：

你可以试试下面的代码

df1$Var4 <- Map(`+`,df1,df2)[[lst[[1]]]]

这样

> df1
  Var1 Var2 Var3 Var4
1    1   21   10    2
2    2   15    9    3

【讨论】：

虽然我喜欢使用函数式编程，但这在时间上可能不是最好的解决方案，因为它会将所有列相加并只返回我们需要的那一个。
@slava-kohut 你是对的。这不省时。只是为了显示一个选项
这很好，我明白了

【解决方案4】：

使用dplyr 的一个选项可能是：

df1 %>%
 mutate(Var4 = c_across(lst[[1]]) + pull(df2, lst[[1]]))

  Var1 Var2 Var3 Var4
1    1   21   10    2
2    2   15    9    3

或者加上purrr:

df1 %>%
 mutate(Var4 = c_across(pluck(lst, 1)) + pull(df2, pluck(lst, 1)))

【讨论】：

【解决方案5】：

您可以直接使用字符串来访问列名：

list<-list("Var1", "Var2", "Var3")
df1 <- data.frame("Var1" = 1:2, "Var2" = c(21,15), "Var3" = c(10,9))
df2<- data.frame("Var1" = 1, "Var2" = 16, "Var3" = 8)
df1$Var4 <- df1[[list[[1]]]] + df2[[list[[1]]]]

输出

> df1
  Var1 Var2 Var3 Var4
1    1   21   10    2
2    2   15    9    3

【讨论】：