Заголовок Data.frame на каждой странице PDF (R - grid & gridExtra)

Question

Я пытаюсь распечатать PDF-файл из 100-строчного фрейма данных на нескольких страницах. Следуя модели , предложенной baptiste , это можно сделать с помощью пакетов {grid} и {gridExtra}.

Однако результат таков, что только На первой странице отображается заголовок, а на остальных нет. Я хотел бы знать, могу ли я напечатать PDF-файл таким образом, чтобы на всех страницах отображался заголовок.

Спасибо, Дэн

Адаптация ответа баптиста:

library(magrittr)
library(gridExtra)
library(grid)

set_multipage_pdf <- function(df, paper_size = 'a4', margin = 1.30, landscape = FALSE, page_cex = 1, table_cex = 1) {
  sizes <- list(a4 = c(larger_size = 29.70, smaller_size = 21.00),
                a3 = c(larger_size = 42.00, smaller_size = 29.70),
                letter = c(larger_size = 27.94, smaller_size = 21.59),
                executive = c(larger_size = 18.41, smaller_size = 26.67))

  if (landscape) {
    paper_height <- sizes[[paper_size]]['smaller_size'] * page_cex
    paper_width <- sizes[[paper_size]]['larger_size'] * page_cex
  } else {
    paper_height <- sizes[[paper_size]]['larger_size'] * page_cex
    paper_width <- sizes[[paper_size]]['smaller_size'] * page_cex
  }

  tg <- df %>%
    tableGrob(
      rows = seq_len(nrow(df)),
      theme = ttheme_default(
        base_size = 5 * table_cex
      )
    )

  fullheight <- convertHeight(sum(tg$heights), "cm", valueOnly = TRUE)
  page_margin <- unit(margin, "cm")
  margin_cm <- convertHeight(page_margin, "cm", valueOnly = TRUE)
  freeheight <- paper_height - margin_cm
  npages <- ceiling(fullheight / freeheight)
  nrows <- nrow(tg)

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

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

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

  for(page in seq_len(npages)) {
    if(page > 1) grid.newpage()
    grid.draw(gl[[page]])
  }

}

# TEST:
df <- iris[sample(nrow(iris), 187, TRUE),]

pdf('test.pdf', paper = 'a4', width = 0, height = 0)
set_multipage_pdf(df, table_cex = 1.5)
dev.off()

Результат: Модель от баптиста

Answer 1

Хитрость заключается в создании нового фрейма данных на каждой странице из подмножеств оригинала. Трудности возникают при настройке высоты строки для размещения новой строки заголовка и при сохранении нумерации строк на страницах.

В любом случае, вот обновленная функция для достижения sh, которая:

library(magrittr)
library(gridExtra)
library(grid)

set_multipage_pdf <- function(df, paper_size = 'a4', margin = 1.30, landscape = FALSE, 
                              page_cex = 1, table_cex = 1) 
{
  sizes <- list(a4 = c(larger_size = 29.70, smaller_size = 21.00),
                a3 = c(larger_size = 42.00, smaller_size = 29.70),
                letter = c(larger_size = 27.94, smaller_size = 21.59),
                executive = c(larger_size = 18.41, smaller_size = 26.67))

  if (landscape) {
    paper_height <- sizes[[paper_size]]['smaller_size'] * page_cex
    paper_width  <- sizes[[paper_size]]['larger_size']  * page_cex
  } else {
    paper_height <- sizes[[paper_size]]['larger_size']  * page_cex
    paper_width  <- sizes[[paper_size]]['smaller_size'] * page_cex
  }

  tg <- df %>% tableGrob(rows  = seq_len(nrow(df)), 
                         theme = ttheme_default(base_size = 5 * table_cex))

  fullheight  <- convertHeight(sum(tg$heights), "cm", valueOnly = TRUE)
  page_margin <- unit(margin, "cm")
  margin_cm   <- convertHeight(page_margin, "cm", valueOnly = TRUE)
  freeheight  <- paper_height - margin_cm
  npages      <- ceiling(fullheight / freeheight)
  nrows       <- nrow(tg)
  heights     <- convertHeight(tg$heights, "cm", valueOnly = TRUE) * (nrows + npages)/nrows 
  rows        <- cut(cumsum(heights), include.lowest = FALSE,
                     breaks = c(0, cumsum(rep(freeheight, npages))))
  groups      <- split(seq_len(nrows), rows)

  gl <- lapply(groups, function(id) 
               {
                 df[id,] %>% 
                 tableGrob(rows = id, theme = ttheme_default(base_size = 5 * table_cex))
               })

  for(page in seq_len(npages)){
    if(page > 1) grid.newpage()
    grid.draw(gl[[page]])
  }

}