Центрируйте и соедините различные столбцы с сеткой

Question

Я хочу создать таблицу с разными именами столбцов / столбцов. Как подключить центральный столбец 1, чтобы он соответствовал столбцу 2 и столбцу 3.

Я пробовал что-то вроде этого:

s<-tableGrob(iris[1:4, 1:2], theme=tt1, rows=NULL)
d<-tableGrob(iris[1:4, 1:2], theme=tt2, rows=NULL)
a<-gtable_combine(s,jn, along=2)
grid.newpage()
grid.draw(a)