r 将 PNG 设备的大小设置为 grob 大小

Question

我创建了一个tableGrobT，根据先前给定的参数，这个tableGrob可以改变大小。

有没有办法使用png()函数，以便从之前创建的 tableGrob 中获取宽度和高度参数

让我们这样说：

library(gridExtra)
T=tableGrob(mydata)
png("myfile"
,width=convertX(grobWidth(T),"points")    # pseudo-code
,height=convertX(grobHeight(T),"points"))
grid.draw(T)
dev.off

我收到一条消息，指出 r 无法启动 png 设备和大约 50 个警告。

Answer 1

我们可以使用嵌套在convertHeight中的sum()来设置它，并在grid包中convertWidthmehod：

grobHeight <- function(x) {
grid::convertHeight(sum(x$heights), "in", TRUE)
}
grobWidth <- function(x) {
grid::convertWidth(sum(x$widths), "in", TRUE)
}

png("myfile"
,width  = grobWidth(T)
,height = grobHeight(T)
)