Hi, Gabor No, what I am trying to do is similar to: abline(v=time(spread)[spread[,"Indicator"]==(-1)], col="yellow"),
where spread is the multivariate zoo object (say, 5 timeseries). That is, I want to color parts of the plots where indicator==(-1), but do the coloring without using layout() and then repeating plot() and abline() for each of the 5 timeseries. Best, Sergey On Tue, Mar 3, 2009 at 14:22, Gabor Grothendieck <ggrothendi...@gmail.com> wrote: > Are you trying to color the points themselves? This plots the > first two series in frame 1 (they are the same but one is plotted > as points and the other as a line) and the third series is shown > in frame 2 and for the series of points it colors them green or red. > The lines are all colored black: > > library(zoo) > set.seed(1) > x <- zoo(rnorm(10)) > s <- sign(x) > > plot(cbind(x, x, s), screen = c(1, 1, 2), type = c("p", "l", "l"), > col = list(ifelse(s > 0, "green", "red"), 1, 1), pch = 20) > > > > On Tue, Mar 3, 2009 at 7:48 AM, Sergey Goriatchev <serg...@gmail.com> wrote: >> Hello, everyone >> >> I have a zoo object containing several time series of daily frequency. >> One of these timeseries is an indicator function with value (-1) at >> certain times, and (+1) at the other. >> I do a plot of several of the timeseries in one go (a multiple plot). >> I wonder if I can automatically in EACH plot color the area where >> indicator variable is (-1)? >> >> Of course, I could do it simply with layout() and then for each >> timeseries do plot and a color overlay, but I wonder if with >> plot.zoo() simething similar is possible to do automatically. >> >> Thanks in advance for help! >> >> Best, >> Sergey >> >> ______________________________________________ >> R-help@r-project.org mailing list >> https://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html >> and provide commented, minimal, self-contained, reproducible code. >> > -- I'm not young enough to know everything. /Oscar Wilde Experience is one thing you can't get for nothing. /Oscar Wilde When you are finished changing, you're finished. /Benjamin Franklin Tell me and I forget, teach me and I remember, involve me and I learn. /Benjamin Franklin Luck is where preparation meets opportunity. /George Patten ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.