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 创建于 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

pmap 不跨数据帧行映射

pmap not mapping across rows of dataframe

r

purrr

tidyverse