我使用 ggplot 创建了一系列图并将它们打印在网格中。我想在整个网格周围添加一个边框,这样当我将图像插入演示文稿时,它就会被明确定义。
这是我正在使用的网格和打印命令的创建。我已经导入了所有必要的包。
library(grid)
pushViewport(viewport(gp=gpar(col="white"),
layout = grid.layout(4, 2, heights = unit(c(0.5,5,5,5), "null"))))
grid.text("Summer Clear Day- August 2, 2012",
vp = viewport(layout.pos.row = 1, layout.pos.col = 1:2))
grid.frame(gp=gpar(col="white"), draw=TRUE)
print(tot, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(gh, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
print(dir, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
print(ir, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
print(dh, vp = viewport(layout.pos.row = 4, layout.pos.col = 1))
print(uv, vp = viewport(layout.pos.row = 4, layout.pos.col = 2))
grid.frame 似乎没有做任何事情。我的背景是黑色的,所以我希望在它周围创建一个白色边框。