使用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或拆分。

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

这两种方法都是有效的，语法也相当干净，易于理解；我不知道为什么应该希望使用tidyverse。