如何使用 $ 标记在 dplyr 管道中获取列表的子元素

Question

如果我想使用“$”来获取 dplyr 管道中列表的子元素怎么办？

问题来自： 我在每种情况下都调用了 boxplot.stats()（4 个因素：价值、金属、颠簸、参考）：

match.raw %>% 
  select(-id) %>% 
  group_by(value, metallic, bumpiness, reference) %>% 
  group_split() %>% 
  map(select, diff) %>% 
  map(as.matrix) %>% 
  map(boxplot.stats)

然后我得到了多个 boxplot.stats 调用的一堆结果。我想从每个 boxplot.stats 结果中获取“输出”信息，就像：

boxplot.stats(x)$out

这是我的数据：

> head(match.raw, 20)
   id value metallic bumpiness reference match  diff
1   1   1.0      1.0       0.5       0.7  0.74  0.04
2   1   1.0      1.0       0.5       0.9  0.88 -0.02
3   1   1.0      0.0       0.5       0.3  0.30  0.00
4   1   0.0      0.5       0.5       0.3  0.32  0.02
5   1   1.0      0.0       0.5       0.7  0.46 -0.24
6   1   0.0      1.0       0.5       0.3  0.28 -0.02
7   1   0.0      1.0       0.5       0.7  0.72  0.02
8   1   1.0      0.5       0.5       0.5  0.56  0.06
9   1   0.5      0.0       0.5       0.9  0.84 -0.06
10  1   0.0      0.5       0.5       0.5  0.54  0.04
11  1   0.5      1.0       0.5       0.1  0.10  0.00
12  1   0.5      0.5       0.5       0.9  0.96  0.06
13  1   1.0      0.0       0.5       0.1  0.00 -0.10
14  1   0.0      0.5       0.5       0.9  0.92  0.02
15  1   1.0      0.5       0.5       0.9  0.94  0.04
16  1   1.0      0.5       0.5       0.1  0.28  0.18
17  1   1.0      1.0       0.5       0.1  0.10  0.00
18  1   0.0      0.5       0.5       0.1  0.22  0.12
19  1   1.0      0.0       0.5       0.5  0.00 -0.50
20  1   0.5      0.5       0.5       0.7  0.78  0.08

Answer 1

试试这个。

library(purrr); library(dplyr)

match.raw %>% 
  select(-id) %>% 
  group_by(value, metallic, bumpiness, reference) %>% 
  group_split() %>% 
  map(select, diff) %>% 
  map(as.matrix) %>% 
  map(boxplot.stats) %>%
  map(\(.) .$out) %>%
  unlist()

您的示例数据在numeric(0) 中无处不在"out"。