计算作为字符串值存储的dataframe$column表达式

Question

可以计算如下形式的字符串，使其等同于相同的"文字"表达式吗?

示例数据和代码:

df.name = data.frame(col1 = 1:5, col2 = LETTERS[seq(1:5)], col3 = letters[seq(1:5)], stringsAsFactors = FALSE)
col.name = "col2"
row.num = "4"
var1 = str_c("df.name$", col.name,"[",row.num,"]")
> var1
[1] "df.name$col2[4]"

文字正常工作

> df.name$col2[4]
[1] D

get()不等价:

get(var1)
## Error in get(var1) : object 'df.name$col2[4]' not found

这种形式的get()"工作"，但不能解决问题

get("df.name")$col2[4]
[1] D

对于其他帖子，我尝试了eval(parse())和eval(parse(text()))但没有成功。

我试图创建一个函数，将使用传递给函数的col.name搜索(子集)df.name。我想避免为每个列名编写单独的函数，尽管这样可以工作，因为我可以将df.name$col2[row.num]编码为"文字"。

<标题>编辑

示例代码应该显示行。num作为数字/整数类型，即row.num = 4

Answer 1

你就快成功了:

> eval(parse(text = var1))
[1] "D"

因为默认情况下解析期望文件，所以需要指定text参数

Answer 2

我试图创建一个函数，将使用传递给函数的col.name搜索(子集)df.name。

设置数据:

df.name = data.frame(col1 = 1:5, col2 = LETTERS[1:5], ## seq() is unnecessary
                     col3 = letters[1:5], 
                     stringsAsFactors = FALSE)
col.name = "col2"
row.num = "4"

解决你的最终(按列名索引数据框架)而不是你的近端(弄清楚如何使用get()/eval()等)问题:正如@RichardScriven指出的，

f <- function(col.name,row.num,data=df.name)
   return(data[[col.name]][as.numeric(row.num)])
}

应该工作。如果您将行号指定为数字而不是字符，可能会更习惯，如果可能的话…