r - pmap 不跨数据帧行映射

Question

我正在尝试将一个函数映射到包含在 使用 purrr::pmap 的数据框行。我有一个 reprex 下面:

library(tidyverse)

# Create dummy data
e <- 0.3
f <- 1:3
g <- 1:3
df <- tidyr::crossing(e = e, f = f, g = g)

# Create a simple function to use
new_ratio <- function(x, y, z){
    return(x/(y + z))
}

# Apply pmap across rows of the dataframe `df` - not working as intended 
purrr::pmap(df, ~ new_ratio(x = e, y = f, z = g))
#> [[1]]
#> [1] 0.150 0.075 0.050
#> 
#> [[2]]
#> [1] 0.150 0.075 0.050
#> 
#> [[3]]
#> [1] 0.150 0.075 0.050
#> 
#> [[4]]
#> [1] 0.150 0.075 0.050
#> 
#> [[5]]
#> [1] 0.150 0.075 0.050
#> 
#> [[6]]
#> [1] 0.150 0.075 0.050
#> 
#> [[7]]
#> [1] 0.150 0.075 0.050
#> 
#> [[8]]
#> [1] 0.150 0.075 0.050
#> 
#> [[9]]
#> [1] 0.150 0.075 0.050

由 reprex package 创建于 2018-07-16 (v0.2.0).

可以看出我真的很想创建一个简单的输出 逐行在此给出比率e/(f+g) 简单的例子。该函数不断返回相同的值 对于不同的输入。在第一行，我希望 输出 0.3/(1 + 1) = 0.15，在第二行会期望 0.3/(1 + 2) = 0.1 等

谁能告诉我如何纠正这个问题？我不太 了解如何应用文档中的 pmap

Answer 1

我们可以将列名更改为参数名，它应该可以工作

pmap_dbl(setNames(df, c('x', 'y', 'z')), new_ratio)
#[1] 0.150 0.100 0.075 0.100 0.075 0.060 0.075 0.060 0.050

或者如果我们打算使用~，参数是..后跟数字

pmap_dbl(df, ~ new_ratio(x = ..1, y= ..2, z = ..3))
#[1] 0.150 0.100 0.075 0.100 0.075 0.060 0.075 0.060 0.050