如何在R Markdown中使用datatable()将表格左对齐

要实现DT表格左对齐且列宽适配内容，核心是调整表格容器的CSS样式，同时让表格自动适配列宽，以下是两种可行方案：

方案1：快速实现左对齐+自适应列宽 #

用htmltools::tags$div包裹DT表格，给容器设置display: inline-block样式，让容器收缩到表格实际宽度，同时开启DT的autoWidth选项让列宽适配内容：

library(DT)
library(htmltools)

my_table <- datatable(head(cars), rownames = FALSE, 
                      options = list(dom = "rtP", autoWidth = TRUE))
tags$div(style = "display: inline-block;", my_table)

方案2：自定义列宽+左对齐 #

如果需要精准控制每列宽度，可通过columnDefs指定列宽，再配合容器样式实现左对齐：

library(DT)
library(htmltools)

my_table <- datatable(head(cars), rownames = FALSE,
                      options = list(
                        dom = "rtP",
                        autoWidth = TRUE,
                        columnDefs = list(
                          list(width = "120px", targets = 0), # 自定义第一列宽度
                          list(width = "120px", targets = 1)  # 自定义第二列宽度
                        )
                      ))
tags$div(style = "float: left;", my_table)

原理说明 #

DT默认的表格容器是宽度100%的div，所以即使表格内容少，容器也会占满页面宽度，导致表格被拉伸或出现大量空白。通过display: inline-block或float: left让容器收缩到表格实际宽度，再加上autoWidth = TRUE让列根据内容自动调整宽度，就能达到类似kable_styling(position = "left")的紧凑左对齐效果。

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