panel function question

I have two data sets with locations, X, Y of houses (df.house) and
 habitats(df.habitat), respectively. In each dataset, there are 3
 replicates (Repeat). Because each replicate has different locations of
 houses and habitats, I would like to plot them in panels. I wrote
 something like this:



 mypanel<-function(x,y,subscripts,...){

  panel.xyplot(x,y,pch=20)

 panel.xyplot( df.habitat$X[subscripts], df.habitat$Y[subscripts], pch=3)

  }



 with(df.house, xyplot(X~Y|Repeat, panel=mypanel, subscripts=T))



 But the problem is that all habitats from 3 replicates are ended in one
 panel.



 Any help would be appreciated.