简单、美观的交叉表，允许匿名化

Question

是否有一种简单的方法可以对使用 gtsummary 包中的

tbl_cross

函数创建的交叉表进行匿名化？

或者有我可以使用的替代包吗？ 例如，我想匿名化所有大于 5 的值。

Answer 1

我同意@r2evans，聚合应该在之前将数据传递给

tbl_cross()

完成。下面的例子！

library(gtsummary)
#> #Uighur
library(tidyverse)
packageVersion("gtsummary")
#> [1] '1.5.2'

tbl <-
  diamonds %>%
  # lump together levels with fewer than 1000 observations
  mutate(clarity = fct_lump_min(clarity, min = 1000)) %>%
  tbl_cross(clarity, color)

^{由 reprex 包于 2022 年 3 月 16 日创建（v2.0.1）}