r - r 将 png 设备的大小设置为 grob 大小

Question

我创建了一个 tableGrob T，这个 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

我们可以使用sum()嵌套在包中的convertHeightandconvertWidth方法中进行设置grid：

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