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

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()

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