Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread Sergey Goriatchev
Supreme!
Thanks Gabor!

On Tue, Mar 3, 2009 at 15:20, Gabor Grothendieck
 wrote:
> If you want to use abline on a multivariate plot it must be issued
> within a panel function like this:
>
> # same set up as in prior email
> p <- function(x, y, ...) { points(x, y); lines(x, y); abline(v =
> time(s)[s > 0], col = "green") }
> plot(cbind(x, s), panel = p)
>
> There are further examples of panel functions in the examples section
> of ?plot.zoo
> in case what you want is a variation of the above.
>
>
> On Tue, Mar 3, 2009 at 9:04 AM, Sergey Goriatchev  wrote:
>> Gabor, yes, I want to color portions of EACH plot of the MULTIPLE plot
>> done with plot.zoo()
>> I tried to do:
>>  plot(multivariate zoo object)
>> abline(v=...)
>>
>> but that does not work.
>>
>> I will check your suggestions of the examples.
>> Thank you for your help, as always!
>>
>> Best,
>> Sergey
>>
>> On Tue, Mar 3, 2009 at 14:44, Gabor Grothendieck
>>  wrote:
>>> 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  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
  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  
> 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

>>>
>>
>>
>>
>> --
>> 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
>>
>



-- 
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.


Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread Gabor Grothendieck
If you want to use abline on a multivariate plot it must be issued
within a panel function like this:

# same set up as in prior email
p <- function(x, y, ...) { points(x, y); lines(x, y); abline(v =
time(s)[s > 0], col = "green") }
plot(cbind(x, s), panel = p)

There are further examples of panel functions in the examples section
of ?plot.zoo
in case what you want is a variation of the above.


On Tue, Mar 3, 2009 at 9:04 AM, Sergey Goriatchev  wrote:
> Gabor, yes, I want to color portions of EACH plot of the MULTIPLE plot
> done with plot.zoo()
> I tried to do:
>  plot(multivariate zoo object)
> abline(v=...)
>
> but that does not work.
>
> I will check your suggestions of the examples.
> Thank you for your help, as always!
>
> Best,
> Sergey
>
> On Tue, Mar 3, 2009 at 14:44, Gabor Grothendieck
>  wrote:
>> 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  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
>>>  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  
 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
>>>
>>
>
>
>
> --
> 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.


Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread Sergey Goriatchev
Gabor, yes, I want to color portions of EACH plot of the MULTIPLE plot
done with plot.zoo()
I tried to do:
 plot(multivariate zoo object)
abline(v=...)

but that does not work.

I will check your suggestions of the examples.
Thank you for your help, as always!

Best,
Sergey

On Tue, Mar 3, 2009 at 14:44, Gabor Grothendieck
 wrote:
> 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  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
>>  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  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
>>
>



-- 
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.


Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread 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  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
>  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  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.


Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread Sergey Goriatchev
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
 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  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.


Re: [R] Question about multiple plots of zoo objects

2009-03-03 Thread Gabor Grothendieck
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  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.
>

__
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.