如何为flextable多行粘性表头设置白色背景色？

我用flextable创建了带多行表头的可滚动表格，已经通过set_table_properties的extra_css实现了表头粘性，但设置background-color: white后表头依然透明，滚动时表格主体内容会穿透表头显示。尝试调整z-index也无效，希望解决这个问题。

修改后的完整代码 #

---
title: "Untitled"
output: "html_document"
---

```{r, echo=FALSE, warning=FALSE, message=FALSE, results='asis'}
library(dplyr)
library(flextable)

tbl1 <- flextable(mtcars) %>%
  add_header_row(top = TRUE, values = c("", "header 1", "header 2"), colwidths = c(1,5,5)) %>%
  # 给所有表头单元格设置白色背景（flextable原生方法）
  bg(part = "header", bg = "white") %>%
  set_table_properties(
    layout = "autofit",
    opts_html = list(
      scroll = list(
        height = "300px",
        freeze_first_column = FALSE
      ),
      extra_css = "
          /* 让多行表头的每一行都固定在顶部 */
          thead tr {
            position: sticky;
            top: 0;
            z-index: 99;
          }
          /* 强制设置表头单元格背景为白色，覆盖默认样式 */
          thead th {
            background-color: white !important;
            /* 可选：添加底部边框，区分表头和内容 */
            border-bottom: 1px solid #e0e0e0;
          }
      "
    )
  )
# 输出表格
tbl1

关键调整说明 #

1. 原生设置表头背景：使用bg(part = "header", bg = "white")直接给所有表头单元格设置白色背景，确保单元格本身的背景不透明，而非仅设置表头容器的背景。
2. 优化CSS规则：
   • 针对thead tr设置粘性，确保多行表头的每一行都能固定在顶部（原代码仅设置thead，无法覆盖多行表头的每一行）。
   • 给thead th添加!important强制覆盖flextable默认的透明/继承样式，保证白色背景生效。
   • z-index设置为99，确保表头层级高于表格主体内容，避免被穿透。

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