对tibble变量进行交叉表，使输出可读

在R语言中，tibble是一种数据结构，它提供了更现代、更灵活的数据框（data frame）替代品。要对tibble变量进行交叉表分析，并使输出更具可读性，可以使用tidyverse包中的count()函数结合spread()或pivot_wider()函数来重塑数据，或者使用janitor包中的tabyl()函数来生成交叉表。

以下是使用tidyverse包进行交叉表分析的示例：

# 安装和加载必要的包
install.packages("tidyverse")
library(tidyverse)

# 创建一个tibble示例数据
data <- tibble(
  gender = sample(c("Male", "Female"), 100, replace = TRUE),
  age_group = sample(c("Under 30", "30-50", "Over 50"), 100, replace = TRUE),
  purchase = sample(c("Yes", "No"), 100, replace = TRUE)
)

# 使用count()函数进行交叉表分析
cross_tab <- data %>%
  count(gender, age_group, purchase)

# 使用spread()函数重塑数据（适用于二分类变量）
cross_tab_spread <- cross_tab %>%
  spread(purchase, n)

# 或者使用pivot_wider()函数（在新版tidyverse中推荐使用）
cross_tab_wide <- cross_tab %>%
  pivot_wider(names_from = purchase, values_from = n)

# 打印结果
print(cross_tab_spread)
print(cross_tab_wide)

如果你想要更简洁的输出，可以使用janitor包中的tabyl()函数：

# 安装和加载janitor包
install.packages("janitor")
library(janitor)

# 使用tabyl()函数生成交叉表
cross_tab_janitor <- data %>%
  tabyl(gender, age_group, purchase)

# 打印结果
print(cross_tab_janitor)

tabyl()函数会生成一个包含计数和百分比的交叉表，使输出更加直观。

参考链接：