将标题添加到Xtable

Question

我不确定这是r问题还是屈从问题。我“在一个简单的表格（3年级和6年级）中查看学生的标记。我创建了桌子并打印出来，但是我想添加标签，以便人们知道哪个标记是哪个等级。

我的毛衣代码是：

<<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 在乳胶代码中生产“ ”，该代码在表格的每一行末端以及newline字符的末端使用。

帮助 xtable 有一个很好的例子 add.to.row 了解更多信息。