r - 将标题添加到 xtable

Question

我不确定这是 R 问题还是 Sweave 问题。我正在一个简单的表格(3 年级和 6 年级)中查看学生在 2 个时间点的分数。我创建了表格并打印出来，但是我想添加标签，以便人们知道哪个分数来自哪个年级。

我的 Sweave 代码是:

<<MakeData,results='asis'>>=
library(xtable)
Grade3 <- c("A","B","B","A","B","C","C","D","A","B","C","C","C","D","B","B","D","C","C","D")
Grade6 <- c("A","A","A","B","B","B","B","B","C","C","A","C","C","C","D","D","D","D","D","D")
Cohort <- table(Grade3,Grade6)
print(xtable(Cohort))
@

我得到了一个带有计数的漂亮表格，但是行和列都有相同的表示法。如何添加标签使其更清晰？

Answer 1

要更改 Cohort 的标签，请更改列名和行名:

rownames(Cohort) <- 1:4
colnames(Cohort) <- 5:8

您还可以向 xtable 调用添加表标题:

print(xtable(Cohort, caption = 'My Title'), caption.placement = 'top')

您可以使用 caption.placement 来告诉放置标题的位置。

编辑:

根据评论，我没有回答上面的问题。要使 xtable 打印更像 table 并且带有高于级别的标签，您可以在 add.to.row 函数中使用 print.xtable:

addtorow <- list()
addtorow$pos <- list()
addtorow$pos[[1]] <- 0
addtorow$pos[[2]] <- 0
addtorow$command <- c('& & Grade 6 & & \\\\\n', "Grade 3 & A & B & C & D \\\\\n")
print(xtable(Cohort, caption = 'My Title'), caption.placement = 'top', 
      add.to.row = addtorow, include.colnames = FALSE)

add.to.row 接受一个包含两个元素的列表: pos 和 command 。 pos 是一个列表，其长度与作为向量的 command 相同。 pos 的每个元素是表中放置 command 的相应元素的行。

在这里，我希望前两行是标签所在的位置。我将 pos 的第一个和第二个元素设置为 0 以指示我将东西放在表的顶部。 0 位置是表中两条横线之间的位置。
\\\\\n 在 LaTeX 代码中生成 '\\' ，用于表的每一行末尾加上换行符。
xtable 的帮助中有一个很好的 add.to.row 示例以获取更多信息。