R 表格格式转换为PDF格式-格式在页面上的位置,以及重复的页眉/页脚

R 表格格式转换为PDF格式-格式在页面上的位置,以及重复的页眉/页脚,r,dataframe,formatting,grid,gridextra,R,Dataframe,Formatting,Grid,Gridextra,如果有人问我这个问题,我很抱歉,但是我不熟悉R(更熟悉Python),并且在搜索它时遇到了困难 我有一个表(dataframe),大约有10列,几十到几百行。我已经学习了回答大多数问题的教程,但不知道如何: 1) 将网格表从PDF输出的中心移到左上角(使用自定义的边距) 2) 强制在每个页面上重复标题 3) 在每页上添加重复的页脚/脚注 如何添加这些功能?例如,使用以下代码: ''' 库(gridExtra) 图书馆(网格) d您可能应该查看r标记以了解那些更高级的功能。。。 library(g

如果有人问我这个问题,我很抱歉,但是我不熟悉R(更熟悉Python),并且在搜索它时遇到了困难

我有一个表(dataframe),大约有10列,几十到几百行。我已经学习了回答大多数问题的教程,但不知道如何:

1) 将网格表从PDF输出的中心移到左上角(使用自定义的边距)

2) 强制在每个页面上重复标题

3) 在每页上添加重复的页脚/脚注

如何添加这些功能?例如,使用以下代码:

'''

库(gridExtra)
图书馆(网格)

d您可能应该查看
r标记
以了解那些更高级的功能。。。
library(gridExtra)
library(grid)
d <- iris[sample(nrow(iris), 187, TRUE),]
tg <- tableGrob(d, rows = seq_len(nrow(d))) 

fullheight <- convertHeight(sum(tg$heights), "cm", valueOnly = TRUE)
margin <- unit(0.51,"in")
margin_cm <- convertHeight(margin, "cm", valueOnly = TRUE)
a4height <- 29.7 - margin_cm
nrows <- nrow(tg)
npages <- ceiling(fullheight / a4height)

heights <- convertHeight(tg$heights, "cm", valueOnly = TRUE) 
rows <- cut(cumsum(heights), include.lowest = FALSE,
            breaks = c(0, cumsum(rep(a4height, npages))))

groups <- split(seq_len(nrows), rows)

gl <- lapply(groups, function(id) tg[id,])

pdf("multipage.pdf", paper = "a4", width = 0, height = 0)
for(page in seq_len(npages)){
  grid.newpage()
  grid.rect(width=unit(21,"cm") - margin,
            height=unit(29.7,"cm")- margin)
  grid.draw(gl[[page]])
}

dev.off()