如何在另一个（p）映射函数中映射列名

Question

我想在每个值更改mydf2在其最接近的价值attitude的相应列。 例如，我们将mydf2的complaints列中的第一个值mydf2替换为64，因为64是attitude的complaints列中最接近的数字。 这应该很容易，除了我希望代码能概括为许多列名。 尽管在下面的示例中只有三列需要关注，但是我希望代码也可以在矢量cols_to_iterate的末尾添加“ raises”或“ critical”来使用。

library(tidyverse)
library(DescTools)
set.seed(123)
cols_to_iterate <- c("complaints", "learning", "advance")
mydf2 <- as.data.frame(map(attitude[cols_to_iterate], ~runif(6, 50, 100)))

map(cols_to_iterate, function(col_of_interest){
  pmap(mydf2, function(cols_to_iterate, ...){
    new_mydf2_col_val <- Closest(pull(attitude, col_of_interest), col_of_interest)
    return(new_mydf2_col_val)
  })
}
)

# Error in x - a : non-numeric argument to binary operator

我尝试了上面的代码，但pmap匿名函数无法像手动输入函数一样识别cols_to_iterate作为输入（c（“投诉，”学习“，”高级“））。

谢谢！

Answer 1

您不应在此处使用pmap ，因为pmap用于遍历行。 您应该改用map 。

library(tidyverse)
library(DescTools)
set.seed(123)
cols_to_iterate <- c("complaints", "learning", "advance")
mydf2 <- as.data.frame(map(attitude[cols_to_iterate], ~runif(6, 50, 100)))

map2_df(mydf2,colnames(mydf2),function(column,colname){
    map_dbl(column,function(cell){
        Closest(attitude[[colname]],cell)[1] # use the first value in case there are two closest values
    })
})

# A tibble: 6 x 3
  complaints learning advance
       <dbl>    <dbl>   <dbl>
1         64       75      72
2         90       75      72
3         70       75      55
4         90       72      72
5         90       75      63
6         53       72      52