lattice para gráficos en R

# Funciones de Lattice en Panel
# Las funciones de Lattice controlan lo que pasa dentro de cada panel
require("lattice")

Loading required package: lattice

x <- rnorm(100)
y <- x + rnorm(100, sd = 0.5)
f <- gl(2,50, labels = c ("Group 1", "Group 2"))
xyplot(y~x|f) # traza y vs. x condicionada a f

# Grafico y vs. x condicionada a f con lí­nea horizontal (punteada) dibujada en la mediana de y para cada panel 

xyplot(y ~ x | f, 
       panel = function (x, y, ...){
         panel.xyplot(x,y, ...)
         panel.abline(h = median (y),
                      lty = 2)
       })

# Agregando lí­nea de regresión
xyplot(y~x|f,
       panel = function (x, y, ...) {
         panel.xyplot(x,y, ...)
         panel.lmline(x,y, col =2) # col = 2 es para indicar el color rojo en la lí­nea de regresión 
       })

Libro de sugerencia

Sarkar, D. 2008. Lattice: Multivariate Data Visualization with R. Springer. 273 p.