更改R中grid.table中的标题行位置

我使用以下代码使用

grid.table

从

gridExtra

包创建一个表

require(tidyverse)
require(gridExtra)

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

require（tidyverse）
需要（额外）
df您可以拆分和重新组合gtable

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