在xyplot中的特定值上绘制网格线

Question

我有一个xyplot，我想在0值上绘制网格线。

如何做到这一点？

Answer 1

根据lattice changelog：

  

格子的变化0.19
  =======================

     

o在'grid'中添加了新参数'abline'和panel.xyplot()。

所以你可以在一行中完成：

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

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

如果你想要panel.grid类似线条样式，那么很好的技巧：

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

Answer 2

如果您使用的是包lattice（隐含xyplot），则可以使用panel.abline在标记的刻度线上绘制线条。

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 3

有一个格子llines函数替换了base中的lines（）函数的功能。还有一个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