двойное вложение с tidyverse и purrr

Question

Я хотел бы создать двойную вложенную структуру данных, где c вложен в элемент, который далее вложен в 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))) 
      ) 

, но это дает еще один столбец в м3, а не в м2 $ один.

Answer 1

Вы можете заменить единый вложенным столбец one с новым двойным вложенным в колонке mutate, назначая такое же имя (one) в результате вместо того, чтобы новый столбец, как вы делали.

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