Dibujar líneas de cuadrícula en valores específicos en xyplot

Question

Tengo un xyplot y quiero dibujar líneas de cuadrícula en los valores 0.

¿Cómo se puede hacer esto?

Answer 1

Si está usando el paquete lattice (que está implicado con xyplot), puede utilizar panel.abline para dibujar líneas más marcadas las garrapatas.

my.df <- data.frame(a = runif(10, min = -1, max = 1), b = runif(10, min = -1, max = 1)) 
my.plot <- xyplot(b ~ a, data = my.df) 
update(my.plot, panel = function(...) { 
      panel.abline(h = 0, v = 0, lty = "dotted", col = "light grey") 
      panel.xyplot(...) 
     }) 

Answer 2

Hay una función de líneas de celosía que reemplaza la función de la funcionalidad de líneas() en la base. También hay una función panel.lines.

#---------- method -------------- 
xyplot(-1:1 ~ -1:1, type="l") 
trellis.focus("panel", 1, 1) 
do.call("panel.abline", list(h=0,v=0, lty=3)) 
trellis.unfocus() 
# --- that method has the advantage of also demonstrating 
#  how to modify an existing plot 

#---------- method 2-------------- 

xp <-xyplot(-2:1 ~ -2:1, type="l", panel=function(...){ 
panel.xyplot(...) 
panel.abline(h=0,v=0, lty=3)}) 
xp 

Answer 3

Según lattice changelog:

Cambios en celosía 0,19
====================== =

o Se agregaron argumentos nuevos 'grid' y 'abline' en panel.xyplot().

Por lo que podría hacerlo en una sola línea:

require(lattice) 
X <- data.frame(xx=runif(20), yy=rnorm(20)) 

xyplot(yy~xx, X, abline=list(h=0)) 

Si quieren panel.grid como estilo de línea, a continuación, buen truco:

xyplot(yy~xx, X, abline=c(list(h=0),trellis.par.get("reference.line")))