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

# 安装和加载必要的包
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包
install.packages("janitor")
library(janitor)

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

# 打印结果
print(cross_tab_janitor)