Сетка таблицы в PDF в R - форматирование размещения на странице и повторяющиеся колонтитулы - PullRequest
Новая
       31

Сетка таблицы в PDF в R - форматирование размещения на странице и повторяющиеся колонтитулы

1 голос
/ 12 февраля 2020

Я прошу прощения, если это было задано, но я не знаком с R (гораздо больше знаком с Python) и не могу найти его.

У меня есть таблица (датафрейм) с ~ 10 столбцов и десятки до сотен строк. Я следовал инструкциям, которые отвечают на большинство моих вопросов, но не могу понять, как:

1) Переместить таблицу сетки из центра вывода PDF в верхний левый угол (с заданными пользователем полями).

2) Принудительное повторение заголовков на каждой странице

3) Добавление повторяющихся нижних колонтитулов / сносок на каждой странице

Как добавить эти функции? Например, с кодом:

'' '

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()

' ''

Спасибо за любую помощь, которую кто-либо может оказать, или за ссылки, которые кто-либо может предоставить, где эти на вопросы уже дан ответ.

...