Eu tenho alguns puxadores de mesa, alguns longos e outros curtos. Gostaria de desenhá-los na parte superior / central da página (com uma pequena margem).

Deesta resposta, Obtive um ponto de partida útil, mas o posicionamento depende da altura de cada manobra.

library(gridExtra)

# fake data 
my_df <- data.frame(col1=rep('hello', 35), col2=round(rnorm(35), 3))

# list of grobs
tg <- list(tableGrob(my_df[1:30, ]), tableGrob(my_df[31:35, ]))

# this positions grobs at center top, but varies based on rows in table
tg[[1]]$vp <- viewport(x = 0.5,
                       y = unit(1,"npc") - 0.52 * grobHeight(tg[[1]]))

tg[[2]]$vp <- viewport(x = 0.5,
                       y = unit(1,"npc") - 0.52 * grobHeight(tg[[2]]))

# this one appears just below top, which is good
grid.newpage()
grid.draw(tg[[1]])

# this appears slightly closer to the top; desired outcome is to have column headers 
# in same position as the previous one
grid.newpage()
grid.draw(tg[[2]])

Eu tenho experimentado diferentes parâmetros para oviewport ligar - por exemplo

viewport(x = 0.5, y = unit(0.95, 'npc'), just=c('center', 'top'))

mas não teve sucesso. Qualquer ajuda apreciada!