r - 带有多行标题的print.xtable？

Question

我一直在尝试创建一个表头，其中包含一个类似的中断。我在这里并不太雄心勃勃，也不在乎我是否只是打破了极长的字符串或一般只有两行标题。

dat <- matrix(round(rnorm(9, 20, 10)), 3, 3)
colnames(dat) <- c("some very long colname","short","another toooooooolong colname")
require(xtable)
m <- xtable(dat)

print(m,                  
              floating=FALSE, 
              hline.after=NULL,                  
              size="\\footnotesize",
              tabular.environment="tabular",
              add.to.row=list(pos=list(-1,0,nrow(m),0
                                       ), 
              command=c('\\toprule ',
                        '\\midrule ',
                        '\\bottomrule',
                        '\\\\ \\rowcolor[gray]{.9}'
                        )
                              )
              )

有没有办法换行标题，因为我的表格不再适合页面，尽管我使用 landscape已经。一些 sanitize.rownames基于技巧？摆弄着 \shortstack但无法让它去......

Answer 1

(将我的评论写成正确的答案)

在调用 xtable ，您可以指定各种对齐参数，其中之一是 parbox固定宽度的文本将被换行。这是用 p{1in} 指定的其中大括号内指定的值是框(列)的宽度。您必须手动指定它(而不是让它适应可用空间)，但它确实为您提供了一种环绕文本的选项。