我正在尝试在每页的longtable下放置标题，但是我还没有找到解决方法。我认为它必须与参数add.to.row一起使用，但是我不知道该怎么做。
这是我的代码：
addtorow <- list()
addtorow$pos <- list(-1, -1)
addtorow$command <- c("& Absolut & & & Prozent &"," &")
print(xtable(t, display = c("s","d","d","d","f", "f"), label ="tab:Wireg",
caption ="Pendelstatus nach Wirtschaftsregionen", digits = 1),
format.args = list(big.mark = ".", decimal.mark = ","), hline.after=c(-1,0,nrow(t)-1,
nrow(t)), add.to.row = addtorow, tabular.environment = "longtable")