r - 使用 tidyverse 和 purrr 进行双重嵌套

Question

我想创建一个双嵌套数据结构，其中 c 嵌套在 a 中，而 a 又嵌套在 id 中。

library(tidyverse)
m<-data_frame(id=c(100,101,100,101,100,101,100,101),
            a=c("A","A","B","B","A","A","D","D"),
            c=c(1:8))
m2 <- m %>%
group_by(id) %>%
nest(.key = one)

所以第一个巢是可以的。但我想在 m2$one 内进一步嵌套。

知道我该怎么做吗？

我可以去:

        m3 <- m2 %>%
              mutate(
                     two=map(m2$one,~(.x %>% 
                                      group_by(a) %>%
                                      nest(.key=two)))
              )

但这会在 m3 内提供另一列，而不是在 m2$one 内。

Answer 1

您可以替换单嵌套列 one使用 mutate 中的新双嵌套列通过为结果分配相同的名称( one )而不是像您那样创建新列。

m2 %>%
    mutate(one = map(one, ~.x %>% 
                        group_by(a) %>%
                        nest(.key = two)))