0

我有一个棘手的问题是访问列表的字符串值作为 purr 函数的参数。

我的目标是将两个向量的字符串元素的所有排列（用于输出文件名）连接到一个输入列表中：

target.labels <- c("Prefix_A", "Prefix_B")
features.sets <- c("Suffix_X", "Suffix_Y")

input.list <- expand.grid(x=target.labels, y=features.sets)

预期结果应如下所示：

"Prefix_A-Suffix_X" "Prefix_B-Suffix_X" "Prefix_A-Suffix_Y" "Prefix_B-Suffix_Y"

这是我尝试过的：

library(dplyr)
library(purrr)

fun1 <- function(x,y) { paste0(c(x, y), collapse = "-") }
fun2 <- function(x,y) { paste(x, y, sep = "-") }
fun3 <- function(x,y) { glue::glue("x = {x}, y = {y}") }


input.list %>% pmap_chr(fun1)
## [1] "1-1" "2-1" "1-2" "2-2"

input.list %>% pmap_chr(fun2)
## [1] "1-1" "2-1" "1-2" "2-2

input.list %>% pmap_chr(fun3)
## [1] "x = 1, y = 1" "x = 2, y = 1" "x = 1, y = 2" "x = 2, y = 2"

input.list %>% pmap_chr(~paste(.x, .y, sep = "-"))
## [1] "1-1" "2-1" "1-2" "2-2"

如您所见，purr::pmap 函数只检索元素的索引值而不是字符串值。另一方面，它可能不是特定于 purr 因为应用函数显示相同的问题：

mapply(fun1, input.list$x, input.list$y)
## [1] "1-1" "2-1" "1-2" "2-2"

一种预感是，在 paste0() 或 paste() 中隐藏的 c() 函数以某种方式阻止了对字符串值的访问——但只能与 purr:pmap 结合使用，而不是与 purr:map2 结合使用！

所以这有效：

map2_chr(.x = input.list$x, .y = input.list$y, ~paste(.x, .y, sep = "-"))

## [1] "Prefix_A-Suffix_X" "Prefix_B-Suffix_X" "Prefix_A-Suffix_Y"
## [4] "Prefix_B-Suffix_Y"

我的预感是这个问题可能与 NSE（非标准评估）有关，但我无法弄清楚，因为 purr:map2 按预期工作。

我会很感激能很好地解释为什么会发生这种情况——以及如何使它与 purr:pmap 一起工作。

4

2 回答 2

1

基本功能expand.grid是将您的列变成因子。由于您已经在使用 tidyverse 函数，请改用 tidy 等效crossing函数

input.list <- crossing(x=target.labels, y=features.sets)

然后fun1或者fun1应该可以正常工作。因子的问题在于它们基本上以整数形式存储在 R 中，因此它们更可能被转换为数字而不是字符。

于 2019-02-06T16:17:07.147 回答
0

这里的expand.grid列可以改成characterclass，如果我们使用的话stringsAsFactors = FALSE，然后用pmapcanpaste每一行的元素

library(purrr)
input.list <- expand.grid(x=target.labels, y=features.sets, stringsAsFactors = FALSE)
pmap_chr(input.list, paste, collapse="-")
#[1] "Prefix_A Suffix_X" "Prefix_B Suffix_X" "Prefix_A Suffix_Y" "Prefix_B Suffix_Y"
于 2019-02-06T16:18:53.030 回答