小编Lun*_*414的帖子

我有一个类似于这里的问题,其中OP旨在合并表格水平合并中列的标题.在这里,我希望合并垂直排列的单元组.以下是我在Microsoft Excel软件中设计的目标表: -

我尝试使用水平合并的问题规定的方法制作目标表

library(gridExtra)
library(grid)
library(ggplot2)

alphabets <- c(rep("A", 3), rep("B", 3), rep("C",3))
numbers <- c(rep(c(1,2,3), 3))
sounds <- c('Ayes','Bees','Cees')

df1 <- data.frame(alphabets = alphabets,numbers=numbers)
df2 <- data.frame(sounds = sounds)

tab1 <- tableGrob(df1,theme = ttheme_default(),row=NULL)
tab2 <- tableGrob(df2,theme = ttheme_default(),row=NULL)

halign <- combine(tab2,tab1, along =1)

grid.draw(halign)

这将给我以下输出: -

我现在有一个临时的工作.但如果我合并多个单元格,它将会失败.

sounds <- c('','Ayes','','','Bees','','','Cees','')
df2 <- data.frame(sounds = sounds)
tab2 <- tableGrob(df2,theme = ttheme_default(),row=NULL)
halign <- combine(tab2,tab1, along =1)
grid.draw(halign)

输出结果如下: -

我的问题是如何合并两个表格grob对象并保留最大输出的最大表格的长度.

感谢您的努力,答案将极大地有助于我的分析结果的呈现.

干杯

Lune3141