grid.arrange（）情节和表格重叠

Question

这是我在Stack上的第一篇文章，所以任何帮助将不胜感激。如果我需要更改我的问题或更具体，请告诉我。

我正在尝试创建一个包含情节和与该情节相关的表的图。我能够产生情节，但我的桌子太长，随后与我的条形图重叠。以下是重现该问题的虚拟代码。

我的问题是这样的。有什么办法可以将我的桌子拆分成n个部分，以便它适合我的条形图下方？我有几个数据帧可以处理不同的大小，所以手动按行生成多个表的子设置不是首选。任何帮助，将不胜感激。

catg <- rnorm(50) 
amts <- rnorm(50) 
data <- data.frame(catg,amts) 

plt1 <- ggplot(data,aes(x=catg,y=amts))+ 
     geom_bar(stat="identity", width=0.1) 

tbl1 <- tableGrob(amts) 

grid.arrange(plt1,tbl1) 

Answer 1

我不知道你有什么想法，但也许将这些值重塑为N列（和数字）？

grid.table(matrix(round(amts,3), ncol=5))