R语言如何创建与控制台输出格式一致的交叉表对象

以下提供两种常用的实现方案，均可得到和控制台打印格式一致、可直接用于后续合并的宽格式透视表：

方法1：基础R实现 #

直接将table()生成的列联表对象通过as.data.frame.matrix()转换为宽格式数据框，行名对应Area，列名对应年龄分组：

# 生成列联表后直接转宽格式数据框
wide_table <- as.data.frame.matrix(table(MyData$Area, MyData$Age))
# 如果需要把行名（Area）转为普通列方便后续合并，可以再加一步
wide_table$Area <- rownames(wide_table)
rownames(wide_table) <- NULL

输出的wide_table就是和控制台打印格式完全一致的宽表，包含Area、0-17、18+三列。

方法2：tidyverse生态实现（更适合后续数据处理） #

用dplyr计数+tidyr转宽的逻辑生成透视表，不需要处理行名，直接得到可直接用于合并的结构化宽表：

library(dplyr)
library(tidyr)

wide_table <- MyData %>%
  count(Area, Age) %>% # 按Area和Age分组计数，得到n列存频数
  pivot_wider(names_from = Age, values_from = n, values_fill = 0) # 转宽，缺失组合的频数自动填充为0

这个方法得到的结果和基础R方案完全一致，且默认将Area作为普通列存储，不需要额外处理行名，更适配tidy系列函数的后续操作。

小提示：直接对table()对象使用as.data.frame()会触发R的表格转长表逻辑，得到Var1、Var2、Freq三列的长格式数据，和我们需要的宽表结构不符，用上述两种方法即可避免这个问题。

内容的提问来源于stack exchange，提问作者JeffWithpetersen