R格子多打印页面如何将文本放入页边距 [英] R lattice multiple plot page how to put text in page margin

问题描述

我想在使用R晶格创建的绘图页面上放置标题。例如，我可以将四个图放在一页上，如下所示：

#load lattice
require(lattice). 
# data
a<-c(1,3,4)
b<-c(1,2,3)
# make plots
plt1<-xyplot(a~b,main="plt1")
plt2<-xyplot(a~b,main="plt2")
plt3<-xyplot(a~b,main="plt3")
plt4<-xyplot(a~b,main="plt4")
# plot plots
plot(plt1, split=c(1,1,2,2),newpage=FALSE)
plot(plt2, split=c(1,2,2,2),newpage=FALSE)
plot(plt3, split=c(2,1,2,2),newpage=FALSE)
plot(plt4, split=c(2,2,2,2),newpage=FALSE)

现在如何将标题"我的绘图页面"居中放置在plt1和plt3上方的上边距？

推荐答案

您可以使用grid推送一个视区并添加标题：

library(grid)
vp2 <- viewport(x = 0.5, y = 1, width = 1, height = .1, just = c("center", "top"))
pushViewport(vp2)
grid.rect(gp = gpar(vol = "blue")) # just to see dimensions/position of the viewport
grid.text("My Title", gp = gpar(cex = 2))

您必须稍微调整一下视区的位置和尺寸。理想情况下，您还可以在lattice呼叫中添加上边距，以便为您的书目创建一些空白。

这篇关于R格子多打印页面如何将文本放入页边距的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！