在 R 中更改 Header grid.table 中的行位置

Question

我有以下代码，我正在使用这些代码使用 gridExtra 包中的 grid.table 创建 table。

require(tidyverse)
require(gridExtra)

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

生成以下 table。

有没有什么方法可以让 table 的 header 行位于 grid.table returns 的 table 的最底行？也就是说 a-m 在 x 之上，1-13 在 y 之上。

Answer 1

你可以拆分和重组gtable，

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

Changing Header Row position in grid.table in R