R Markdown 不使用DT包如何冻结kable/flextable首行首列？

两种方案均无需修改包底层函数，复制对应代码到Rmd文件即可直接使用。

一、kableExtra实现方案 #

通过给表格添加自定义CSS样式实现固定效果，搭配原生scroll_box使用即可。

1. 先在Rmd文件任意位置添加一段CSS代码块：

/* 固定首行表头 */
.sticky-table thead th {
  position: sticky;
  top: 0;
  background: #ffffff;
  z-index: 2;
}
/* 固定首列 */
.sticky-table tbody td:first-child {
  position: sticky;
  left: 0;
  background: #ffffff;
  z-index: 1;
}
/* 提高首行首列交叉单元格优先级，避免被遮挡 */
.sticky-table thead th:first-child {
  z-index: 3;
}

2. 生成表格时添加对应自定义类即可：

library(kableExtra)
# 测试用数据，可替换为你的实际数据
test_df <- data.frame(
  分类 = paste0("分类", 1:30),
  指标1 = rnorm(30),
  指标2 = rnorm(30),
  指标3 = rnorm(30),
  指标4 = rnorm(30),
  指标5 = rnorm(30),
  指标6 = rnorm(30),
  指标7 = rnorm(30)
)
# 输出表格
test_df %>%
  kbl() %>%
  kable_styling() %>%
  add_class("sticky-table") %>% # 绑定前面定义的样式
  scroll_box(width = "800px", height = "500px") # 按需调整滚动框宽高

二、flextable实现方案 #

flextable原生支持固定首行首列配置，无需额外写CSS：

library(flextable)
# 测试用数据，可替换为你的实际数据
test_df <- data.frame(
  分类 = paste0("分类", 1:30),
  指标1 = rnorm(30),
  指标2 = rnorm(30),
  指标3 = rnorm(30),
  指标4 = rnorm(30),
  指标5 = rnorm(30),
  指标6 = rnorm(30),
  指标7 = rnorm(30)
)
# 输出表格
flextable(test_df) %>%
  set_table_properties(
    layout = "autofit",
    opts_html = list(
      scroll = list(
        height = "500px", # 滚动区域高度，按需调整
        width = "800px", # 滚动区域宽度，按需调整
        freeze_first_row = TRUE, # 固定首行
        freeze_first_column = TRUE # 固定首列
      )
    )
  )

注意事项 #

如果你的表格设置了斑马纹交替行颜色，只需要在kableExtra的CSS代码中补充首列对应行的背景色配置即可，比如奇数行背景为#f8f9fa，就加一行.sticky-table tbody tr:nth-child(odd) td:first-child {background: #f8f9fa;}。

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