适合R网格图形父（顶部）视口大小到图像

Question

有没有办法在使用R的网格图形系统生成时，将最上面的视口（即图形输出大小）的大小调整到内部凹槽的大小？

pdf(file = "test.pdf", width = 7, height = 2.7)接近我想要的，但我想剪切光栅图像。此外，我想直接在RMarkdown中使用图形输出。

library(grid)
library(jpeg)

img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))

grid.rect(x = 0.25, width = 0.5)
grid.raster(img, x = 0.25, width = 0.5)  
grid.rect(x = 0.75, width = 0.5)
grid.raster(img, x = 0.75, width = 0.5)

我希望导出的图形文件与光栅图像一样高，以避免在将图像包含在文本文件中时浪费空间。

另一个问题是文本在光栅图像上的定位：当图像重新缩放时，文本的位置会发生变化。

Answer 1

试试这个

ar <- dim(img)[1]/dim(img)[2]
grid.rect(vp=viewport(width=unit(0.5,"snpc"), height=unit(0.5*ar,"snpc")))
grid.raster(img, width=unit(0.5,"snpc"))