如何为DT::DTOutput首行设置样式并排除其参与列排序？

要实现第一行高亮且排序时固定在顶部不参与排序，可以通过DT包的两个功能结合实现：

1. 高亮第一行 #

使用formatStyle指定目标行（DT中行索引从0开始，第一行对应索引0），设置自定义样式（比如背景色、字体加粗）。

2. 固定第一行不参与排序 #

通过DT的options参数设置orderFixed，将第一行固定在表格顶部，点击列箭头排序时仅对下方数据行生效。

修改后的完整代码 #

app_ui <- function(request) {
  DT::DTOutput("data")
} 

app_server <- function(input, output, session) {
  # 创建数据框
  n_lines <- 10; n_col <- 10
  df <- as.data.frame(matrix(runif(n_lines * n_col), ncol = n_col))
  df$years <- 2000:2009
  # 随机生成缺失值
  for (i in 1:nrow(df)) { 
    for (j in 1:ncol(df)) { 
      random_number <- sample(1:3, 1)
      if (random_number == 1) { df[i, j] <- NA } 
    } 
  }
  # 添加缺失值统计行到顶部
  df <- rbind(colSums(is.na(df)), df)
  
  output$data <- DT::renderDT({
    DT::datatable(df, 
                  selection = 'none', 
                  server = TRUE, 
                  options = list(
                    dom = 't', 
                    paging = FALSE, 
                    scrollX=TRUE,
                    # 固定第一行在顶部，不参与排序
                    orderFixed = list(list(0, 'asc'))
                  ), 
                  rownames = FALSE) %>%
      # 高亮第一行，自定义样式
      formatStyle(0, target = 'row',
                  backgroundColor = '#f7dc6f',
                  fontWeight = 'bold')
  })
}

# 运行Shiny应用
shinyApp(app_ui, app_server)

关键说明 #

• orderFixed = list(list(0, 'asc'))：这里的0对应DT中的第一行（行索引从0开始），'asc'仅用于固定位置，不影响实际排序逻辑，点击列排序时只会对第2行及以后的数据生效。
• formatStyle(0, target = 'row', ...)：针对第一行设置高亮样式，可根据需求调整backgroundColor、fontWeight等CSS属性。

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