RMarkdown-使用DT创建列标题

我想使用

DT:：datatable

在

Rmd

中创建一些表。 目前，我的桌子是这样的：

但我更喜欢在立柱上方有一个标题，所以它会在第一条直线上写上“Pre”，在它下面写上M和SD表示Pre。这是一个例子：

---

有人能帮忙吗？

如果

DT:：datatable

的交互性对您不重要（正如表的简洁性所示），我建议您使用

KableExtra:：kable

，它可以轻松处理HTML和Latex中的此类标题：。

如果

DT:：datatable

的交互性对您不重要（如表中所示），我建议使用

KableExtra:：kable

，它可以轻松处理HTML和Latex中的此类标题：。

如果您确实想使用

DT:：datatable

，您可以尝试此答案中建议的解决方案。这包括创建一个“草图”要用数据单元格填充的HTML表的

library(DT)
library(htmltools)

cont <- withTags(
  table(
    class = "display",
    thead(
      tr(
        th(colspan = 2, "Pre"),
        th(colspan = 2, "Post")
      ),
      tr(
        th("M"),
        th("SD"),
        th("M"),
        th("SD")
      ),
    )
  )
)

datatable(df, rownames = FALSE, container = cont, 
          options = list(
            columnDefs = list(
              list(targets = "_all", className = "dt-center")
            )
          ))

库（DT）
图书馆（htmltools）
cont如果您确实想使用
DT:：datatable
，您可以尝试此答案中建议的解决方案。这包括创建HTML表的“草图”以填充数据单元格

library(DT)
library(htmltools)

cont <- withTags(
  table(
    class = "display",
    thead(
      tr(
        th(colspan = 2, "Pre"),
        th(colspan = 2, "Post")
      ),
      tr(
        th("M"),
        th("SD"),
        th("M"),
        th("SD")
      ),
    )
  )
)

datatable(df, rownames = FALSE, container = cont, 
          options = list(
            columnDefs = list(
              list(targets = "_all", className = "dt-center")
            )
          ))

库（DT）
图书馆（htmltools）
续