Rmarkdown中CSS设置flextable冻结表头单元格白色背景求助

要实现冻结首行+首列，同时让冻结的表头单元格背景为白色，你需要针对表头（thead）和表体（tbody）的不同部分分别编写CSS规则，避免元素遮挡问题。以下是修改后的完整代码：

library(flextable)
dat <- lapply(1:30, function(x) rnorm(n = 50)) %>% 
  setNames(paste0("colname", 1:30)) %>% 
  as.data.frame()

ft_1 <- flextable(dat)
ft_1 <- set_table_properties(ft_1, 
                             opts_html = list(
                               extra_css = "
                               /* 冻结表头行，背景设为白色 */
                               .tabwid thead tr {
                                 position: sticky;
                                 top: 0;
                                 z-index: 2;
                                 background: #ffffff;
                               }
                               /* 冻结表头的首列单元格，避免被表体首列遮挡，背景白色 */
                               .tabwid thead tr > :first-child {
                                 position: sticky;
                                 left: 0;
                                 z-index: 3;
                                 background: #ffffff;
                               }
                               /* 冻结表体的首列单元格，背景保持灰色（可按需调整） */
                               .tabwid tbody tr > :first-child {
                                 position: sticky;
                                 z-index: 1;
                                 left: 0;
                                 background: #ddd;
                               }
                               ",
                               scroll = list(height="500px")))
ft_1

关键CSS规则说明： #

• 表头行（thead tr）设置sticky: top实现首行冻结，z-index:2保证表头行在表体内容上方，背景#ffffff即白色。
• 表头首列单元格（thead tr > :first-child）额外设置sticky: left实现表头首列冻结，z-index:3比表体首列的z-index:1更高，防止被表体首列遮挡，同时背景设为白色。
• 表体首列单元格（tbody tr > :first-child）保留原有的冻结规则，背景灰色可根据需求自行调整。

这样设置后，滚动表格时首行和首列都会固定，且所有冻结的表头单元格背景都是白色，不会出现遮挡或背景色不符合要求的问题。

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