R语言中通过存储函数名的字符串实现函数求值的方法

直接写eval(y)无法达到预期的原因很简单：当eval的输入是普通字符串时，求值结果就是字符串本身，不会自动查找该字符串作为变量名对应的绑定值。要实现通过存储在变量里的函数字符串名完成调用，只需要先把字符串对应的函数对象从环境中取出来，再传入参数执行即可。

可直接复用的实现方法 #

方法1：get()取对应函数对象后调用 #

R内置的get()函数可以根据传入的字符串名称，从当前工作环境中取出绑定的对应对象，拿到函数后直接传参执行就行：

# 已有的前置代码
x <- 1:10  
squared <- function(x) {x^2}  
y <- "squared"

# 核心逻辑：用y存储的字符串拿到squared函数，传入x计算
get(y)(x)

执行后输出和期望结果完全一致：

[1]   1   4   9  16  25  36  49  64  81 100

方法2：eval搭配as.name()实现 #

如果需要用eval的求值逻辑，要先把字符串转成符号类型，再交给eval解析对应对象，不能直接把原始字符串传给eval：

eval(as.name(y))(x)

这种写法的运行结果和方法1完全一致，本质逻辑和get(y)相通：eval不会对字符串做“去字符串化匹配变量”的操作，但会对符号类型的表达式，按照R的命名规则找到对应的绑定值。

常见踩坑提醒 #

• 不要直接写eval(y)(x)：eval(y)返回的是字符串squared，而字符串本身不是可调用的函数对象，R会直接抛出类型错误
• 不推荐用eval(parse(text = y))(x)的写法：简单场景下它虽然能跑出结果，但属于过度设计。parse原本是用来解析复杂文本表达式的，针对单纯的函数名调用场景，用get()或者as.name()转符号的效率更高，也能避免不必要的文本解析带来的安全风险

内容的提问来源于stack exchange，提问作者Peter Bonate