在 R 中将粘贴和替换与引号结合使用

请注意，我已经看过了this and that但仍然无法解决我的问题。

假设一个最小的工作示例：

a <- c(1,2,3)
b <- c(2,3,4)
c <- c(4,5,6)
dftest <- data.frame(a,b,c)

foo <- function(x, y, data = data) {
    data[, c("x","y")]
    }
foo(a, b, data = dftest)

在这里，最后一行显然返回一个Error: undefined columns selected。返回此错误是因为要选择的列是x and y，它们不是数据框的一部分dftest.

问题：我需要如何制定函数的定义才能获得所需的输出，即

> dftest[, c("a","b")]
#   a b
# 1 1 2
# 2 2 3
# 3 3 4

我想通过调用函数来获得foo.

请注意，为了使解决方案对我的目的有用，函数调用的格式foo被视为固定的，也就是说，唯一的更改是对函数本身进行的，而不是对调用进行的。 IE。foo(a, b, data = dftest)是唯一允许的输入。

方法：我尝试使用paste and substitute结合eval首先更换x and y使用函数调用的参数，然后评估该调用。然而，转义引号在这里似乎是一个问题：

foo <- function(x, y, data = data) {
    substitute(data[, paste("c(\"",x,"\",\"",y,"\")", sep = "")])
    }
foo(a, b, data = dftest)    
eval(foo(a, b, data = dftest))

Here, foo(a, b, data = dftest)返回：

dftest[, paste("c(\"", a, "\",\"", b, "\")", sep = "")]

但是，当评估时eval()（仅关注paste part),

paste("c(\"", a, "\",\"", b, "\")", sep = "")

returns:

# "c(\"1\",\"2\")" "c(\"2\",\"3\")" "c(\"3\",\"4\")"

而不是如我所希望的那样c("a","b")，从而再次导致与上面相同的错误。

尝试这个：

foo <- function(x, y, data = data) {
    x <- deparse(substitute(x))
    y <- deparse(substitute(y))
    data[, c(x, y)]
}