如何将 data.frame 的记录作为参数传递给函数？ [复制]

Question

无论如何，我简化了我的问题。我们有一个这样的数据框：

dt <- data.frame(x=c(1,2,3), y=c("a", "b", "c"))
f <- function(x, y){
  #f is a function that only take vector whose length is one.
}

所以我需要像下面这样使用 f 函数：

  f(1, "a")
  f(2, "b")
  f(3, "c")

我知道我可以像下面这样使用 for 循环：

  for (i in 1:3) {
    f(dt$x[i], dt$y[i])
  }

但它看起来既愚蠢又丑陋。 有没有更好的方法来做这样的工作？

Answer 1

一种选择是vectorize 函数f 在某些情况下工作得很好（即向量返回值），如下所示：

# returs a vector of length 1
f = function(x,y)paste(x[1],y[1])
# returs a vector with length == nrow(dt)
Vectorize(f)(dt$x,dt$y)

# returs a vector of length 2
f = function(x,y)rep(x[1],1)
# returns a matrix with 2 rows and nrow(dt) columns
Vectorize(f)(dt$x,dt$y)

f = function(x,y)rep(y[1],x[1])
# returns a list with length == nrow(dt)
Vectorize(f)(dt$x,dt$y)

但不是在其他情况下（即复合返回值 [列表]），如：

# returns a list
f = function(x,y)list(x[1],y[1])
# returns a matrix but the second row is not useful
Vectorize(f)(dt$x,dt$y)