как добавить общую сетку в решетку xy.plot

Этот вопрос объясняет, как добавлять сетки в определенные точки для решетчатого графика (т.е. эквивалент два abline() для нормального графика). Моя проблема в том, что когда я пытаюсь добавить обычную сетку (эквивалент вызова grid() для нормального сюжета)... содержание сюжетов... исчезает. Вот пример:

B<-cbind(rnorm(100),rnorm(100), floor(runif(100,1,7)), floor(runif(100,1,3)), 
           floor(runif(100,1,4)))
colnames(B)<-c("yval","xval","gval","p","cr")
B<-as.data.frame(B)
xyplot(B$yval~B$xval|B$p*B$cr,group=B$gval,main="Scatterplots by Cylinders and Gears", 
           ylab="Miles per Gallon", xlab="Car Weight",type="l",lwd=5,
           panel=function(x,y){panel.grid()})

если вы удалите последнюю опцию (т. е. панель = функция (x, y) {panel.grid ()}), то я увижу строки данных, но не сетку (). Есть ли способ получить каксетку, так и линии данных

заранее спасибо,