如何在R语言中将因子水平设置为列？附数据转换需求

核心逻辑 #

你需要把当前的长格式表格转换为嵌套式宽格式，核心是将under30/above30作为子分组，Cause作为行主分组，State作为列主分组。推荐用tidyverse工具包实现，适配大规模数据集。

步骤1：准备环境 #

先安装并加载tidyverse（如果未安装）：

install.packages("tidyverse")
library(tidyverse)

步骤2：转换为可操作的数据框 #

你的原始tab是table类型，先转成数据框并修正数值类型：

tab_df <- as.data.frame(tab, stringsAsFactors = FALSE)
# 把字符型数值转成数值型
tab_df$under30 <- as.numeric(tab_df$under30)
tab_df$above30 <- as.numeric(tab_df$above30)

步骤3：重塑为目标格式 #

分两步完成：先将年龄列转为长格式，再扩展为目标宽格式：

# 第一步：合并年龄分组列
tab_long <- tab_df %>%
  pivot_longer(
    cols = c(under30, above30),
    names_to = "AgeGroup",
    values_to = "Count"
  )

# 第二步：转换为嵌套宽格式
tab_target <- tab_long %>%
  pivot_wider(
    id_cols = c(Cause, AgeGroup),
    names_from = State,
    values_from = Count
  )

# 可选：调整列顺序匹配目标样式
tab_target <- tab_target %>%
  arrange(Cause, AgeGroup) %>%
  select(Cause, AgeGroup, AL, AR)

验证结果 #

运行后查看输出：

print(tab_target)

输出示例：

A tibble: 4 × 4 #

Cause AgeGroup AL AR

1 Accident under30 14 17
2 Accident above30 19 6
3 Disease under30 14 17
4 Disease above30 19 6

通用适配说明 #

• 支持任意数量的State：新增州时，pivot_wider会自动生成对应列
• 支持任意数量的年龄分组：只需修改pivot_longer中的cols参数，新增的年龄组会自动纳入子分组
• 支持任意数量的Cause：所有病因会自动作为主行分组

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