如何在R中为列联表添加统一的横竖维度标签

首先，我们先模拟你的数据场景，用reshape2::dcast生成基础列联表：

library(reshape2)

# 模拟示例数据
df <- data.frame(
  year_1 = c("2020", "2020", "2021", "2021"),
  year_2 = c("2020", "2021", "2020", "2021"),
  name_count = c(5, 3, 2, 7)
)

# 生成列联表
cross_tab <- dcast(df, year_1 ~ year_2, value.var = "name_count", sum)

原生dataframe结构并不支持直接添加行/列的总维度标签，给每个行/列值加前缀会导致重复冗余。下面是几种高效的解决方案：

方法1：用gt包添加结构化维度标题 #

gt是专门用于表格格式化的工具，可以轻松给列组添加总标题，同时设置行维度的标题：

library(gt)

gt(cross_tab) %>%
  # 设置表格主标题（可选）
  tab_header(title = "Year1 与 Year2 列联表") %>%
  # 将第一列的列名设为行维度总标签
  cols_label(year_1 = "Year1") %>%
  # 给所有年份列添加统一的列维度总标签
  tab_spanner(label = "Year2", columns = c(`2020`, `2021`))

生成的表格会在顶部显示统一的"Year2"标签，左侧第一列标题为"Year1"，行/列值保留纯年份，完全避免前缀重复。

方法2：用flextable包实现多行表头 #

flextable支持灵活的表头设置，适合生成可导出的美观表格：

library(flextable)

flextable(cross_tab) %>%
  # 将第一列列名设为行维度标签
  set_header_labels(year_1 = "Year1") %>%
  # 添加一行总表头，合并后两列为"Year2"
  add_header_row(values = c("", "Year2"), colwidths = c(1, 2)) %>%
  # 应用简洁的表格主题
  theme_booktabs()

这种方式会生成双层表头：第一层是"Year2"总标签，第二层是具体年份；左侧第一列的标题"Year1"作为行维度的统一标签。

方法3：原生R文本输出的变通方案 #

如果不想依赖第三方包，可手动构造带总标签的文本表格：

# 打印带维度标签的文本表格
cat("          | Year2       |\n")
cat("Year1     | 2020 | 2021 |\n")
cat("-------------------------\n")
for (i in seq(nrow(cross_tab))) {
  cat(sprintf("%-10s| %-4d| %-4d|\n", 
              cross_tab$year_1[i], 
              cross_tab$`2020`[i], 
              cross_tab$`2021`[i]))
}

输出效果：

| Year2       |
Year1     | 2020 | 2021 |
-------------------------
2020      | 5    | 3    |
2021      | 2    | 7    |

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