如何旋转R datatable表头但排除前两列？

要实现部分列表头不旋转，只需在headerCallback中通过列索引判断是否执行旋转逻辑，同时保留原生的start、end参数（即使当前场景用不到，也需保持回调函数的参数完整性以符合DataTables规范）。以下是修改后的完整代码：

library(DT)
library(dplyr)

headerCallback <- c(
  "function(thead, data, start, end, display){",
  "  var $ths = $(thead).find('th');",
  "  $ths.css({'vertical-align': 'bottom', 'white-space': 'nowrap'});",
  "  var betterCells = [];",
  "  // 定义不需要旋转的列索引（JS是0起始，对应R中select的列顺序：id=0, name=1）",
  "  var excludeColumns = [0, 1];",
  "  $ths.each(function(index){",
  "    var cell = $(this);",
  "    if (excludeColumns.includes(index)) {",
  "      // 不旋转，直接保留原文本",
  "      betterCells.push(cell.text());",
  "    } else {",
  "      // 执行旋转逻辑",
  "      var newDiv = $('&lt;div&gt;', {height: 'auto', width: cell.height()});",
  "      var newInnerDiv = $('&lt;div&gt;', {text: cell.text()});",
  "      newDiv.css({margin: 'auto'});",
  "      newInnerDiv.css({",
  "        transform: 'rotate(180deg)',",
  "        'writing-mode': 'tb-rl',",
  "        'white-space': 'nowrap'",
  "      });",
  "      newDiv.append(newInnerDiv);",
  "      betterCells.push(newDiv);",
  "    }",
  "  });",
  "  $ths.each(function(i){",
  "    $(this).html(betterCells[i]);",
  "  });",
  "}"
)

datatable(mtcars %>% mutate(name = row.names(mtcars),
                            id = row_number()) %>% select(id,name, everything()), 
          rownames = F, 
          class = list(stripe = FALSE),
          options = list(
            paging = F, autoWidth = F,
            searching= FALSE,
            scrollX = F,
            headerCallback = JS(headerCallback))) %>% 
  formatStyle(columns = c(1:10), `font-size` = '12px')

关键修改说明 #

• 排除列定义：通过excludeColumns数组指定不需要旋转的列索引（注意JavaScript中列索引从0开始，对应R代码中select的列顺序）
• 索引判断逻辑：遍历表头单元格时，检查当前列索引是否在排除列表中，是则直接保留原文本，否则执行旋转操作
• 参数完整性：回调函数保留start、end等原生参数，确保符合DataTables的回调函数签名要求

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