将函数放入数据框

Question

似乎可以在R中分配一个函数向量，如下所示：

F <- c(function(){return(0)},function(){return(1)})

这样就可以像这样调用它们：（例如） F[[1]]() 。

这给我的印象是我可以做到这一点：

DF <- data.frame(F=c(function(){return(0)}))

导致以下错误

as.data.frame.default（x [[i]]，可选= TRUE）中的错误：无法将类““ function”“强制转换为data.frame

这是否意味着不可能将函数放入数据帧？ 还是我做错了什么？

Answer 1

不，您不能直接将函数放入数据框中。

但是，您可以预先定义功能并将其名称放入数据框中。

foo <- function(bar) { return( 2 + bar ) }
foo2 <- function(bar) { return( 2 * bar ) }
df <- data.frame(c('foo', 'foo2'), stringsAsFactors = FALSE)

然后使用do.call()使用以下功能：

do.call(df[1, 1], list(4))
# 6

do.call(df[2, 1], list(4))
# 8

编辑

只要您具有命名函数，上述变通方法都将起作用。

问题似乎是R视对象为函数的类，为as.data.frame() （ 即 as.data.frame.function() ）查找适当的方法，但找不到它。 这将导致对as.data.frame.default()的调用，该调用必须是对带有您报告的消息的stop()调用的包装。

简而言之，他们似乎只是没有为该课程实施它。

Answer 2

虽然不能将函数或其他对象直接放入data.frame中，但如果通过矩阵，则可以使其起作用。

foo <- function() {print("qux")}
m <- matrix(c("bar", foo), nrow=1, ncol=2)
df <- data.frame(m)
df$X2[[1]]()

产量：

[1] "qux"

df的内容如下所示：

  X1                                   X2
1 bar function () , {,     print("qux"), }

我不知道为什么这在直接路径无效的情况下起作用。 我怀疑在任何生产代码中这样做都是一件“坏事”。