Question

我不确定我对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，您读取表的方式是应用带有参数billCreation_OT和agency = Agency_A的函数loading_site = NULL。每个函数都返回一个数据帧。

我有一个要应用功能的客户端列表，我还设置了参数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"的字符串。

感谢您的帮助！

Answer 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))

Answer 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

已经显示了可能的方式，我不建议您使用此方式。如果您可以告诉我们更多有关该问题的信息，那么还有更好的方法。

Answer 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

R：将match.fun用于sapply，lapply和mapply

3 个答案: