格子图的同一面板中的两个或多个不同的文本消息

Question

给出以下带有人工数据集的格子图示例：

library(lattice)
set.seed(120)
X<-rnorm(100)
Y<-rnorm(100)
Z<-c(rep("A",50),rep("B",50))
df1<-data.frame(X,Y,Z)

myx <- c(1,-1)
myy <- c(0,0)
MyText<-c("Panel 1 Text", "Panel 2 Text")

xyplot(X~Y|Z, data=df1,
panel=function(x, y,...){
panel.xyplot(x,y,...)
panel.text(myx[panel.number()],myy[panel.number()]
,labels=MyText[panel.number()])})

这是情节：

我希望在同一面板中有“面板1文本”和“面板2文本”，例如，说第一个面板。请注意，真正的问题有很多面板，有时我想在一个面板中放置两次文本，然后在其他面板中放置一次。

有人可以帮我吗？