使用带有longtable选项的xtable时重复标题

Question

有没有办法在生成带有longtable选项的xtable时重复顶行/设置标题？

例如,如果我有

tableSb <- xtable(df, caption="A Very Long Table", label="ALongTable")
print(tableSb, include.rownames=TRUE, tabular.environment="longtable", floating=FALSE)

这样可以正常工作,但是当表格滚动到新页面时,标题不会重复.有什么建议 ？

Answer 1

为了实现这一点,您需要使用add.to.row该print函数的选项(运行?print.xtable以获取更多信息).

试试这个(改编自https://r-forge.r-project.org/tracker/?func=detail&atid=4864&aid=1627&group_id=1228)

addtorow          <- list()
addtorow$pos      <- list()
addtorow$pos[[1]] <- c(0)
addtorow$command  <- c(paste("\\hline \n",
                             "\\endhead \n",
                             "\\hline \n",
                             "{\\footnotesize Continued on next page} \n",
                             "\\endfoot \n",
                             "\\endlastfoot \n",sep=""))
x.big <- xtable(x, label = "tabbig", caption = "Example of longtable spanning several pages")
print(x.big, tabular.environment = "longtable", floating = FALSE,
      include.rownames = FALSE,  # because addtorow will substitute the default row names 
      add.to.row = addtorow,     # this is where you actually make the substitution
      hline.after=c(-1))         # because addtorow will substitute the default hline for the first row

它有点笨拙的解决方案,但至少它会为您提供充足的自定义.