r语言 - 将 pmap 列表参数应用于嵌套在另一个函数中的函数

Question

我需要在pmap变体的帮助下执行一些行操作，但是在将参数列表(即".l"参数(传递给嵌套在另一个函数中的函数时，我不能这样做。

我已经尝试了各种方法，包括传递参数的名称和点点点语法都无济于事。我需要知道是否有办法做到这一点，因为我需要将其扩展到更复杂的函数。

假设我有以下数据框，并且我想粘贴每行的前两列。我可以使用以下代码轻松做到这一点：

dff <- data_frame(
first  = c("A", "B"),
second = c("X", "Y"),
third  = c("L", "M")
)
df_easy <- dff %>% 
mutate(joined_upper = pmap_chr(list(first, second), function(...) paste(..., sep = "&")))
df_easy
#> # A tibble: 2 x 4
#>   first second third joined_upper
#>   <chr> <chr>  <chr> <chr>       
#> 1 A     X      L     A&X         
#> 2 B     Y      M     B&Y

但是，如果我想扩展它，以便我可以在合并它们之前将前两个字母小写，我的尝试将失败。我想看看我是否可以获得 dff3。

# df_hard <- dff %>% 
#   mutate(joined_smaller = pmap_chr(list(first, second), function(...) paste(tolower(...), sep = "&")))
dff3 <- data.frame(
first  = c("A", "B"),
second = c("X", "Y"),
third  = c("L", "M"),
joined_smaller = c("a&X", "b&Y")
)
dff3
#>   first second third joined_smaller
#> 1     A      X     L            a&X
#> 2     B      Y     M            b&Y

Answer 1

这是一个选项。 请注意，paste和str_c是矢量化的，即

library(dplyr)
library(stringr)
dff %>% 
mutate(joined_sma = str_c(tolower(first), second, sep="&"))

并假设这只是一个pmap练习

library(purrr)    
dff %>%
mutate(joined_sma = pmap_chr(list(first, second), ~ c(...) %>% 
{str_c(tolower(first(.)), .[-1], sep="&")}
))
# A tibble: 2 x 4
# first second third joined_sma
#  <chr> <chr>  <chr> <chr>     
#1 A     X      L     a&X       
#2 B     Y      M     b&Y       

---

另外，由于只有两列，我们可以使用约定.x，.y调用它们

dff %>%
mutate(joined_sma = pmap_chr(list(first, second), ~     
str_c(tolower(.x), .y, sep="&")
))

注意：在这里，我们使用str_c而不是paste因为当缺少值(NA(时，这可能会有不同的行为