使用Tidyverse方法將數據集分成多個表格

Question

library(ggmosaic) 
library(tidyverse) 

我很努力地使用Tidyverse方法將數據集分成多個表格。我將使用下面的代碼創建一個與我的實際數據結構相似的數據集。現在

happy2<-happy%>% 
select(sex,marital,degree,health)%>% 
group_by(sex,marital,degree,health)%>% 
summarise(Count=n()) 

，使用happy2數據集，我想用「度」的數據拆分，和程度的每個類別中，將有兩個表，一個男性和一個女性的基礎上， 「性」變量。每個表格都有「婚姻」和「計數」作爲列，「健康」作爲行。

我希望找到一個優雅的方式來創建這些表使用Tidyverse方法，如tidyr :: nest，purrr或split。

Answer 1

這似乎是分裂的一個相當簡單的應用：

# For a flat list 
happy2 %>% 
    split(list(.$degree, .$sex)) 

# For a nested list 
happy2 %>% 
    split(.$degree) %>% 
    lapply(function(x) split(x, x$sex)) 

兩種方法都是有效的，其語法是相當乾淨，易於理解;我不確定爲什麼需要一個完美的等價物。