如何在R中使用tabyl交叉表4个变量

问题描述

我想按组 x 交叉表变量 y 、z、g。我可以用 3 个变量 (tabyl(x,y,z)) 来完成，但我想为 g 的每个值重复它。我试过 group_by(g) 但没用。

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter,lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect,setdiff,setequal,union
library(janitor)
#> 
#> Attaching package: 'janitor'
#> The following objects are masked from 'package:stats':
#> 
#>     chisq.test,fisher.test

df <- tibble(x = c(1,2,3,4,3),y = c(1,1,2),z = c(1,g = c(1,2))

t <- df %>%
  tabyl(x,z)
t
#> $`1`
#>  x 1 2
#>  1 1 0
#>  2 0 0
#>  3 1 1
#>  4 0 0
#> 
#> $`2`
#>  x 1 2
#>  1 0 0
#>  2 1 0
#>  3 0 1
#>  4 0 1
Created on 2021-03-04 by the reprex package (v1.0.0)

解决方法

我们可以将 group_split 与 map 一起使用

library(dplyr)
library(janitor)
library(purrr)
df %>% 
     group_split(g) %>%
     map(~ .x %>% tabyl(x,y,z))