library(lattice)
displacement <- equal.count(mtcars$disp, number=3, overlap=0)
mypanel <- function(x, y) {
panel.xyplot(x, y, pch=19)
panel.rug(x, y)
panel.grid(h=-1, v=-1)
panel.lmline(x, y, col="red", lwd=1, lty=2)
}
xyplot(mpg~wt|displacement, data=mtcars,
layout=c(3, 1),
aspect=1.5,
main = "Miles per Gallon vs. Weight by Engine Displacement",
xlab = "Weight",
ylab = "Miles per Gallon",panel = mypanel)

这里我们将四个独立的构件函数集成到自己的mypanel()函数中，并通过xyplot()函数中

的panel=option选项使它生效。 panel.xyplot()函数使用一个填充的圆（pch=19）产生

散点图。 panel.rug()函数把地毯图加到x轴和y轴的每个标签上。 panel.rug(x, FALSE)和

panel.rug(FALSE, y)将分别把地毯加到横轴和纵轴。 panel.grid()函数添加水平和垂直的

网格线（使用负数迫使其用轴标签排队）。最后， panel.lmline()函数添加了被渲染成红色

（col="red"）、标准厚度（lwd=2）的虚线（lty=2）回归曲线。每个默认的面板函数都有自己

的结构和选项。可以参考帮助页面来获取细节（例如输入help(panellmline)）