使用带有格子图和 grid.arrange 的多行文本

Question

我正在尝试将 A 和 B 标签添加到我使用 grid.arrange 函数组合的两个点阵图中。我无法让 B 标签出现在我想要的位置。我希望字母 A 位于顶部图的左侧和上方，而字母 B 位于底部图的左侧和上方。我尝试将行代码更改为不同的数字，但没有成功。

以下是一些示例数据：

  data1<-data.frame(x=c(1:60),y=rep(c("A","B"),each=30),w=rep(c("V1","V2","V3"),times=20))

Plotting Code
require(lattice);require(grid.Extra)

p1<-bwplot(x~y, data = data1, groups = w, 
       pch = "|", box.width = 1/6,  par.settings =mytheme ,scales=list(x=list(cex=1.2),y=list(cex=1.2)),
       ylab=list("Number of Scallops per Station",fontsize=15),xlab=list("Strata",fontsize=15),
       panel = panel.superpose,
       panel.groups = function(x, y, ..., cex,group.number,col) { 
           panel.bwplot(x + (group.number-1.5)/6,y,...) 
       }) 

p2<-barchart(x~y|w,type="count",layout=c(3,1),data=data1,
    col="light gray", xlab="Binned Number of Scallops per Station",ylab="Count",horizontal=F,
    strip = strip.custom(bg="white",strip.levels = T),as.table=T,origin=0,family="A",
    scales=list(relation="same",alternating=1,x=list(cex=1.2),y=list(cex=1.2)),
    par.settings = list( grid.pars = 
    list(fontfamily = 'serif',cex=1.2)),
    panel=function(x,y,...){
    panel.barchart(x,y,...)})

grid.arrange(p1,p2)

mtext("A",3,line=2,cex=1.2,at=0,family="serif")


 #not in the correct area

mtext("B",3,line=25,cex=1.2,at=0,family="serif")


sessionInfo()
R version 3.3.1 (2016-06-21)
Platform: i386-w64-mingw32/i386 (32-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

Answer 1

mtext() 用于基础图形，网格等价物是 grid.text，

library(lattice)
library(gridExtra)
library(grid)

p1 <- p2 <- xyplot(1~1)

grid.arrange(p1, p2)
grid.text(c("A","B"), x=0, y=c(0.5, 1), vjust=1, hjust=0, gp=gpar(fontface=4))