xyplot时间序列,正值为绿色,负值为红色,R

Question

使用？是否有一种简洁的方法可以为下面的(简化)时间序列图中的红色和其他绿色的负值着色lattice::xyplot？

set.seed(0)
xyplot(zoo(cumsum(rnorm(100))), grid=T)

Answer 1

莱迪思基于此grid,您可以使用网格剪切功能

library(lattice)
library(grid)

set.seed(0)
x <- zoo(cumsum(rnorm(100)))

xyplot(x, grid=TRUE, panel = function(x, y, ...){
       panel.xyplot(x, y, col="red", ...) 
       grid.clip(y=unit(0,"native"),just=c("bottom"))
       panel.xyplot(x, y, col="green", ...) })