tidyverseとpurrを使ったダブルネスト

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) 

したがって、最初のネストはOKです。しかし、私はm2 $ 1の中でさらに巣を作りたいと思っています。

どうすればいいですか？

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

をしかし、これではありません平方メートル$一つの中に、M3内の別の列を与える：

私は行くことができます。

Answer 1

単一ネストされた列oneを、新しい列を作成するのではなく、結果に同じ名前（one）を割り当てて、mutateの新しい二重ネストされた列に置き換えることができます。

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