R：在 sapply、lapply 和 mapply 上使用 match.fun答案

【问题标题】：R: use of match.fun over sapply, lapply and mapplyR：在 sapply、lapply 和 mapply 上使用 match.fun
【发布时间】：2023-03-06 04:48:01
【问题描述】：

我不确定我对 match.fun 的使用是否正确或不适用于这种情况。（我不想使用 for 循环，因为它需要时间）。

我有一个这样的数据框。

df <- data.frame(client = c("A", "B", "C", "D"), 
                 fun = c("bill1stEvent_OT", "bill1stEvent_Tour", "billCreation_OT", "bill1stEvent_Tour_LoadingSite"), 
                 agency = c("NA", "NA", "Agency_A", "NA"), 
                 loading_site = c("NA", "NA", "NA", "Paris"))

>df
  client                            fun    agency  loading_site
       A                bill1stEvent_OT        NA            NA
       B              bill1stEvent_Tour        NA            NA
       C                billCreation_OT  Agency_A            NA
       D  bill1stEvent_Tour_LoadingSite        NA         Paris

fun 列包含我创建的函数。每个函数都采用相同的参数：client、agency、loading_site、year 和 month。因此，您阅读此表的方式是，例如，对于客户端C，应用带有参数agency = Agency_A 和loading_site = NULL 的函数billCreation_OT。每个函数都返回一个数据框。

我有一个我想应用函数的客户列表，我还设置了参数year 和month。：

client_list <- c("A", "C")
year <- "2018"
month <- "07"

问题：我怎样才能调用这个表并应用具有相应参数的函数？所以对于上面的client_list，我想做的是在下面运行这两个函数并将结果（数据帧）存储在一个列表中（或任何可能的）。

bill1stEvent_OT(client = "A", agency = NULL, loading_site = NULL)
billCreation_OT(client = "C", agency =  Agency_A, loading_site = NULL)

我的尝试：

fun_to_apply <- df[df$client %in% client_list, ]$fun
agency_arg <- df[df$client %in% client_list, ]$agency
loading_site_arg <- df[df$client %in% client_list, ]$loading_site

sapply(X = lapply(fun_to_apply, match.fun), 
       FUN = mapply,
       year = year,
       month = month,
       agency = agency_arg,
       loading_site = loading_site_arg)

Error in (function (client, year, month) : 
 arguments inutilisés (agency = dots[[3]][[1]], loading_site = dots[[4]][[1]])

我也不知道如何将agency 和loading_site 作为NULL 传递给函数参数。当您读取数据框时，它会将 NA 评估为字符串，例如 "NA" 我猜。

感谢您的帮助！

【问题讨论】：

可以的。但是还有更简单的方法。为什么函数的名称存储在数据框中？为什么没有 1 个函数和 4 个基于输入的可能操作，那么我们可以只做 apply(df, 1, myFun)。
我不确定你的意思。但这只是我做的20多个函数的提取，如果合并成一个函数就太复杂了。

标签： r lapply matching sapply mapply

【解决方案1】：

最终你可以使用mapply() 和do.call()：

D <- read.table(header=TRUE, stringsAsFactors = FALSE, text=
"fun a b
+ 3 5
- 8 2
* 4 4
+ 1 NA"
)
myfu <- function(fun, a, b) do.call(fun, list(a=a, b=b))
mapply(myfu, D$fun, D$a, D$b)

或

unlist(Map(myfu, D$f, D$a, D$b))

【讨论】：

非常感谢！这似乎是最好的解决方案。您能否也给我一个关于如何处理字符串"NA"s 的建议？我得到这个错误。 Error in bill1stEvent_OT(agency = NA_character_, loading_site = NA_character_) : unused arguments (agency = NA, loading_site = NA)。我想将它们传递为 NULL，而不是 str "NA"。

【解决方案2】：

为了说明我的“可以做到”的评论：

# inputs
client_list <- c("A", "C")
year <- "2018"
month <- "07"

# dummy functions
bill1stEvent_OT <- function(agency, loading_site){paste("11", year, month, agency, loading_site)}
bill1stEvent_Tour <- function(agency, loading_site){paste("22", year, month, agency, loading_site)}
billCreation_OT <- function(agency, loading_site){paste("33", year, month, agency, loading_site)}
bill1stEvent_Tour_LoadingSite <- function(agency, loading_site){paste("44", year, month, agency, loading_site)}


# loop through rows, match function name
apply(df, 1, function(i){
  # we can add a step to convert "NA" to actual NA.
  if(i[1] %in% client_list){
         match.fun(i[2])(agency = i[3], loading_site = i[4])
    } else {NA}
})

# [1] "11 2018 07 NA NA"       NA                       "33 2018 07 Agency_A NA" NA

已经展示了可能的方法，我不建议使用它。如果您能告诉我们更多有关问题的信息，还有更好的方法。

【讨论】：

最终这解决了我的问题。而不是应用我使用lapply 和unique(grep 的逻辑向量，并使用if 语句将lapply 中的NA 替换为NULL。非常感谢！

【解决方案3】：

我创建了一些打印参数的示例函数：

bill1stEvent_OT <- function(...) {
  print("bill1stEvent_OT")
  lapply(list(...), print)
  cat("\n")
}

billCreation_OT <- function(...) {
  print("bill1stEvent_OT")
  lapply(list(...), print)
  cat("\n")
}

而且我认为您正在寻找的是类似的东西（get 相当于 match.fun）：

apply(df[df$client %in% client_list,], 1, 
      function(x) get(x["fun"])(x["agency"], x["loading_site"]))
[1] "bill1stEvent_OT"
agency 
  "NA" 
loading_site 
        "NA" 

[1] "bill1stEvent_OT"
    agency 
"Agency_A" 
loading_site 
        "NA" 

NULL

【讨论】：