Grob an fester Position oben / in der Mitte ausrichten, unabhängig von der Größe
Ich habe einige Tischgrobs, einige lange und einige kurze. Ich möchte diese oben / in der Mitte der Seite (mit einem kleinen Rand) zeichnen.
Vondiese Antwort, Ich habe einen hilfreichen Ausgangspunkt, aber die Positionierung hängt von der Größe der einzelnen Grobs ab.
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]])
Ich habe mit verschiedenen Parametern experimentiert, um dieviewport
call - z. B.
viewport(x = 0.5, y = unit(0.95, 'npc'), just=c('center', 'top'))
aber nicht erfolgreich gewesen. Jede Hilfe dankbar!