1

我有一个矩阵 data.list 列表，我正在尝试将它们一个接一个地显示在 pdf 上，并带有标题。列表的元素由名为 row.vector 的列表的元素索引。

这是我的代码：

pdf("data.pdf", height = 11, width = 8.5)
for (i in 1:length(row.vector)) {
    grid.arrange(tableGrob(data.list[[row.vector[[i]]]], gp=gpar(fontsize=6)), main = row.vector[[i]])
}
dev.off()

这有两个问题。- 所有矩阵都显示在单独的页面上，尽管它们都没有大到足以保证一页。我希望它们一个接一个地显示。- 标题在页面顶部，我希望它们就在桌子上方。我还想放入图表，显示在表格之间（没有表格或图表水平相邻）。

以下是测试清单：

row.vector <- list("first", "second", "third")
a <- matrix(nrow = 4, ncol = 3)
a[1,] <- c(3,4,5)
a[2,] <- c(6,7,8)
a[3,] <- c(1,1,1)
a[4,] <- c(1,1,1)
b<- matrix(nrow = 2, ncol = 3)
b[1,] <- c("a","x","y")
b[2,] <- c("d","d","d")
c <- matrix(nrow = 10, ncol = 2)
c[,1] <- 1:10
c[,2] <- 11:20
data.list <- list("first" = a,"second"=b,"third"=c)
4

0 回答 0