r - 如何使用 purrr::pmap 从数据框设置函数参数而不写所有的列名？

Question

我有这个数据框和函数。

df <- tibble(
  a = "a",
  b = "b",
  c = "c",
  d = "d",
  e = "e",
  f = "f",
  g = "g"
)

pmap(df, function(a, b, c, d, e, f, g) {
    
    var_1 <- paste0(a, b)

    var_2 <- c + d + e

    var_3 <- f/g

   tibble(
   a = var_1
   b = var_2
   c = var_3
)
    
  })

该函数按预期工作。由于列名可能超过七个，我不想在 function() 中写下所有列名。可以做什么？

所需的类似代码:

pmap(df, function(names(df)) {
  
    var_1 <- paste0(a, b)

    var_2 <- c + d + e

    var_3 <- f/g

   tibble(
   a = var_1
   b = var_2
   c = var_3
)
  
})

Answer 1

在这种情况下，我更喜欢 with(list(...), #stuff here )。

基于 stefan 的工作解决方案:

pmap(df,~with(list(...),{var_1 <- paste0(a, b);
                        var_2 <- c + d + e;
                        var_3 <- f/g;
                        tibble(a = var_1, b = var_2, c = var_3)}))
#[[1]]
## A tibble: 1 × 3
#  a         b     c
#  <chr> <dbl> <dbl>
#1 ab        6   0.8