在R中合并公共列后，如何保留并加粗指标名称

要得到你想要的带加粗分组列名的表格，需要先合并数据，再用kableExtra包来实现样式调整，具体步骤如下：

1. 合并两个tibble
   先把两个数据框的分类列（DoB和Education）统一命名，再按行合并：

library(tidyverse)
library(kableExtra)

# 统一指标列名并合并
merged_data <- bind_rows(
  tibble1 %>% rename(指标 = DoB),
  tibble2 %>% rename(指标 = Education)
)

2. 生成带样式的表格
   用kable配合add_header_above来设置加粗的分组标题，同时调整关键行/列的加粗样式：

merged_data %>%
  kable(col.names = c("", "Bob", "Kevin", "Stewart")) %>%
  # 添加加粗的分组表头
  add_header_above(c(" " = 1, "*DoB & Education*" = 3)) %>%
  # 表头行加粗
  row_spec(0, bold = TRUE) %>%
  # 指标类别行（Year、School）加粗
  row_spec(c(1, 3), bold = TRUE) %>%
  # 指标列整体加粗
  column_spec(1, bold = TRUE)

这样输出的HTML/PDF表格会呈现出你需要的效果：分组标题DoB & Education加粗，左侧指标列和类别行也会加粗，完美对应目标样式。

注意：控制台输出无法显示Markdown加粗样式，必须导出为HTML或PDF才能看到最终效果。

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