使用knitr和latex的多行表头[重复]答案

【问题标题】：multiline table header using knitr and latex [duplicate]使用knitr和latex的多行表头[重复]
【发布时间】：2015-08-13 21:48:04
【问题描述】：

我最终将tables 包与knitr 一起使用，但我不知道如何获得多行标题。代码如下：

<<test_table, results='asis', echo=FALSE>>=
matrix <- matrix(1:9, nrow = 3)
colnames(matrix) <- c("first column", "seconf column which I want to have 2     lines because of its very long header title", "third column")
library(tables)
table <- as.tabular(matrix)
latex(table)
@

【问题讨论】：

你能简单地添加\n，如“我想要2行的seconf列...？
它对你有用吗@lawyeR？对我来说，“\n”只是被忽略了。
@dariaa，你是对的。似乎不起作用（我也尝试了一个简单的回车并尝试了 setNames() 函数。我不是乳胶大师，但你看过tex.stackexchange.com/questions/39253/multiline-table-header

标签： r latex knitr tables-package

【解决方案1】：

使用tables 包可能可以做到这一点，但xtable 提供了一个非常简单的解决方案。以下最小示例显示了两种不同的方法：

\documentclass{article}
\begin{document}

<<setup, echo = FALSE>>=
library(xtable)
library(knitr)
opts_chunk$set(echo = FALSE, results = "asis")

matrix <- matrix(1:9, nrow = 3)
  colnames(matrix) <- c(
    "first column",
    "second column which I want to have 2 lines because of its very long header title",
    "third column")
@

<<ChangeColumnType>>=
  print(xtable(matrix, align = c("r", "r", "p{4cm}", "r")), include.rownames = FALSE)
@

<<ChangeOnlyCell>>=
  colnames(matrix)[2] <- "\\multicolumn{1}{p{4cm}}{second column which I want to have 2 lines because of its very long header title}"
  print(xtable(matrix), include.rownames = FALSE, sanitize.colnames.function = identity)
@
\end{document}

第一种方法（块ChangeColumnType）非常简单：将第2列的列类型设置为p{4cm}。这给出了一个 4 厘米宽的列，自动换行（有关更多详细信息，请参阅 wikibooks.org）。缺点是，这会影响整个列，而不仅仅是第一行中的单元格。

第二种方法（块ChangeOnlyCell）使用默认对齐方式（或您想通过align 指定的任何内容）并使用\multcolumn 仅更改有问题的单元格的列类型。默认情况下，xtable“清理”您的表格，这意味着所有特殊的乳胶字符都将被转义。这很方便，因为你不能（轻易地）破坏你的 TEX 代码，但是在这里我们要手动注入 LaTeX 代码，所以我们必须关闭它。因此，设置sanitize.colnames.function = identiy。所有列名都将按照您指定的方式使用——因此在 LaTeX 中使用具有特殊含义的字符时要小心。

上面的示例提供了以下表格：

【讨论】：