r - 映射嵌套列并计算两组之间的 t 检验

Question

我有一些数据，如下所示:

# Groups:   date [4]
  date       data             
  <date>     <list>           
1 2021-01-31 <tibble [10 × 3]>
2 2021-02-07 <tibble [10 × 3]>
3 2021-02-14 <tibble [10 × 3]>
4 2021-02-15 <tibble [10 × 3]>

在每个嵌套的数据内，数据如下所示:

# A tibble: 10 × 3
      id     y     x
   <dbl> <dbl> <int>
 1     4   109     5
 2     6   116     1
 3    19   357     5
 4    22   170     5
 5    31   122     5
 6    33    23     1
 7    36    39     1
 8    38    96     5
 9    39   112     1
10    41   172     5

我想映射这 4 个小标题并计算 x 列中各组之间的 t 检验。因此对于第 1 组和第 5 组。我要比较的数据位于 y 列中。

我正在尝试以一种简洁的方式做到这一点。

我可以用一个小标题做到这一点:

grp1 = data$data[[1]] %>% 
  filter(x == 1) %>% 
  pull(y)

grp2 = data$data[[1]] %>% 
  filter(x == 5) %>% 
  pull(y)

t.test(grp1, grp2)

Answer 1

您可以使用 map 迭代每个数据并对其执行 t.test。

library(dplyr)
library(purrr)

df %> mutate(t_test = map(data, ~t.test(y~x, .x)))