如何调整DT表格表头下方线条的粗细与颜色？

要调整表头下方线条的粗细、颜色，直接针对表格的<thead>元素设置底部边框样式即可，无需操作表格内容行，以下是具体实现方式：

1. 调粗表头下方线条 #

通过自定义CSS指定表头行的底部边框宽度，示例代码：

library(DT)
library(htmltools)

# 单个表格单独设置
datatable(
  iris,
  class = list(stripe = FALSE),
  style = "default",
  options = list(dom = "t"),
  container = tags$table(
    tags$thead(tags$tr(lapply(colnames(iris), tags$th))),
    tags$tbody(),
    style = "thead tr {border-bottom: 3px solid #ddd;}"
  )
)

# 全局设置（适用于页面内多个DT表格）
tags$head(tags$style("
  .datatable thead tr {
    border-bottom: 3px solid #ddd;
  }
"))

datatable(
  iris,
  class = list(stripe = FALSE),
  style = "default",
  options = list(dom = "t")
)

2. 修改表头下方线条为红色 #

将边框颜色指定为red即可，示例：

library(DT)
library(htmltools)

datatable(
  iris,
  class = list(stripe = FALSE),
  style = "default",
  options = list(dom = "t"),
  container = tags$table(
    tags$thead(tags$tr(lapply(colnames(iris), tags$th))),
    tags$tbody(),
    style = "thead tr {border-bottom: 1px solid red;}"
  )
)

3. 同时调粗并修改颜色 #

同时设置边框的宽度和颜色参数：

library(DT)
library(htmltools)

tags$head(tags$style("
  .datatable thead tr {
    border-bottom: 4px solid red;
  }
"))

datatable(
  iris,
  class = list(stripe = FALSE),
  style = "default",
  options = list(dom = "t")
)

以上方案直接作用于表头区域的边框，完全不会受表格内容行的显示逻辑影响，精准满足需求。

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