Tidyverseメソッドを使用して複数のテーブルにデータセットを分割する

Question

library(ggmosaic) 
library(tidyverse) 

Tidyverseメソッドを使用してデータセットを複数のテーブルに分割するのが難しいです。以下のコードを使用して、実際のデータと幾分似た構造のデータセットを作成します。

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

さて、happy2データセットを使用して、私は「度」でデータを分割したい、と度の各カテゴリ内、に基づいて、二つのテーブル、男性用と女性のための1つが存在します"sex"変数。各テーブルは、列として「結婚」と「カウント」、行として「健康」を持ちます。

私は、tidyr :: nest、purrr、またはsplitなどのTidyverseメソッドを使用してこれらのテーブルを作成するための洗練された方法を見つけたいと考えています。

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)) 

は、両方のアプローチが効率的であり、構文はかなりきれいで分かりやすいです。どうしてそんなにぴったりのものが望ましいのかわかりません。