如何在表格中显示所有数据点，自动调整表格宽度和高度

Question

我有一个数据框，我想创建一个表并将其保存为png文件。

我这样做：

library(gridExtra)
my_table<- tableGrob(y[,1:3],gpar.coretext =gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8))
png("cpu.png")
grid.arrange(my_table)
dev.off()

我需要这个png文件来包含我表格中的所有数据。如果我的桌子很大，它会被切断。我如何确保所有数据都显示在此表中？

Answer 1

您的png文件目前有默认高度;您可以明确指定它以确保整个表格适合页面。

library(gridExtra)
d <- head(iris, 50)
tb <- tableGrob(d)

h <- convertHeight(grobHeight(tb), "in", valueOnly=TRUE)
w <- convertWidth(grobWidth(tb), "in", valueOnly=TRUE)

png("iris.png", width = w, height = h, units = "in", res=300)
grid.draw(tb)
dev.off()

出于某种原因，它并不完全准确，但它应该有所帮助。