[R] Question about multiple plots of zoo objects

[Gabor Grothendieck]

Do you mean you want to shade a portion of the plot?

There are two examples of that in the examples section of ?plot.zoo
and a further example using xyplot.zoo in the examples section of
?xyplot.zoo

On Tue, Mar 3, 2009 at 8:37 AM, Sergey Goriatchev <sergeyg at gmail.com> wrote:
> 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
> <ggrothendieck at 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 <sergeyg at 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 at 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
>