Для этого вам необходимо использовать опцию 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
Это немного неуклюжее решение, но, по крайней мере, оно предоставит вам множество настроек.