在 R 中的 grid.table 中更改 Header 行 position

Question

我有以下代碼，用於使用grid.table中的gridExtra創建表。

require(tidyverse)
require(gridExtra)

df<-data.frame(x=letters[1:13],y=1:13)
grid.table(df,rows=NULL)

這會生成下表。

有沒有辦法讓結果表的 header 行出現在grid.table返回的表的最底部行中？ 也就是說，我在 x 之上，而 1-13 在 y 之上。

Answer 1

您可以拆分和重組 gtable，

tg = tableGrob(df,rows=NULL)
grid::grid.draw(rbind(tg[2:nrow(tg),], tg[1,]))