Учитывая следующий пример решетчатого графика с искусственным набором данных:
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()])})
Это график: 
Я хотел бы получить«Panel 1 Text» и «Panel 2 Text» на одной панели, например, первая панель.Обратите внимание, что у настоящей проблемы много панелей, и я хочу иногда размещать текст дважды на одной панели, а один раз - на других панелях.
Может ли кто-нибудь помочь мне в этом, пожалуйста?