David W. wrote

Ø  It also looses it year labels and you may need to suppress the x-axis

Ø  and substitute your own.

You can use plot(yourTimeSeries, type="n") to set up the usual time series axis
and then use lines() or points() to add the data.  E.g.,
   plot(serieONI, type="n")
   points(serieONI, type="h", col=c('red', 'white', 'blue')[
          findInterval(serieONI, c(-Inf, -0.5, +0.5, Inf))])
   lines(serieONI)

Bill Dunlap
Spotfire, TIBCO Software
wdunlap tibco.com

From: r-help-bounces@r-project.org [mailto:r-help-bounces@r-project.org] On Behalf Of David Winsemius
Sent: Friday, July 06, 2012 11:20 AM
To: John Kane
Cc: r-help@r-project.org; Denisse Archundia
Subject: Re: [R] how to do a graph with tree different colors??


On Jul 6, 2012, at 1:24 PM, John Kane wrote:

>
>   Thanks Dennise,
>   Now I see what you have.  It was not obvious from the original
> data set that
>   you posted that is is a time series.
>   I am afraid my knowledge of time series is about zero but I am
> sure others
>   here can help now that we have  a good idea of what the data
> really looks
>   like.
>   I'm sorry I cannot be of more immediate help.

There is a special plot.ts function which refuses my eminently
reasonable requests to color points, so ....  I coerced it to an
atomic vector:

  plot( as.vector(serieONI), col=c('red', 'white', 'blue')[
                                 findInterval(serieONI, c( -Inf, -0.5,
0.5, Inf) )] ,
                             type="b")




(White is a rather unusual color for plotting, but we aim to please.
It also looses it year labels and you may need to suppress the x-axis
and substitute your own.)
>
>   John Kane
>   Kingston ON Canada
>
>   -----Original Message-----
>   From: denissearchundia@yahoo.com.mx<mailto:denissearchundia@yahoo.com.mx>
>   Sent: Fri, 6 Jul 2012 06:01:42 -0700 (PDT)
>   To: jrkrideau@inbox.com<mailto:jrkrideau@inbox.com>
>   Subject: Re: [R] how to do a graph with tree different colors??
>
>   hi!!
>
>   here they are the data in the form you ask.
>   thanks for your help!! DENISSE
>
>    dput(serieONI)
>   structure(c(-1.4, -1.3, -1.2, -1.2, -1.1, -0.9, -0.6, -0.5, -0.4,
>   -0.5, -0.5, -0.7, -0.8, -0.6, -0.4, -0.2, 0, 0.4, 0.6, 1, 1.1,
>   1.2, 1.1, 0.9, 0.6, 0.4, 0.3, 0.3, 0.3, 0.1, -0.1, 0, 0.2, 0.2,
>   0.2, 0.3, 0.5, 0.6, 0.6, 0.7, 0.7, 0.7, 0.7, 0.7, 0.8, 0.8, 0.8,
>   0.7, 0.7, 0.5, 0.1, -0.3, -0.5, -0.5, -0.6, -0.7, -0.8, -0.7,
>   -0.7, -0.7, -0.7, -0.7, -0.7, -0.8, -0.8, -0.8, -0.8, -0.7, -1,
>   -1.4, -1.7, -1.6, -1.1, -0.8, -0.6, -0.5, -0.5, -0.5, -0.5, -0.6,
>   -0.5, -0.5, -0.5, -0.5, -0.3, 0, 0.4, 0.7, 0.9, 1, 1.1, 1.2,
>   1.2, 1.3, 1.5, 1.8, 1.8, 1.6, 1.2, 0.9, 0.7, 0.6, 0.5, 0.3, 0.3,
>   0.4, 0.5, 0.6, 0.6, 0.6, 0.5, 0.3, 0.2, -0.1, -0.2, -0.3, -0.1,
>   0, 0.1, 0, -0.1, -0.2, -0.2, -0.1, -0.1, 0, 0.1, 0.2, 0.2, 0.1,
>   0.1, 0.1, 0, 0, 0, 0.1, 0.3, 0.4, 0.2, -0.1, -0.3, -0.3, -0.2,
>   -0.1, -0.2, -0.3, -0.3, -0.3, -0.2, -0.1, 0, -0.1, -0.2, -0.3,
>   -0.4, -0.5, -0.4, -0.2, 0.1, 0.2, 0.3, 0.5, 0.8, 1.1, 1.2, 1.3,
>   1.4, 1.3, 1.1, 0.6, 0.1, -0.3, -0.6, -0.6, -0.6, -0.7, -0.8,
>   -0.8, -0.8, -0.8, -0.6, -0.3, 0, 0.2, 0.5, 0.8, 1.2, 1.4, 1.7,
>   1.9, 1.9, 1.7, 1.4, 1.1, 0.9, 0.6, 0.4, 0.3, 0.2, 0.1, 0, -0.1,
>   -0.1, -0.2, -0.3, -0.4, -0.5, -0.4, -0.2, 0.1, 0.1, -0.1, -0.3,
>   -0.3, -0.3, -0.4, -0.6, -0.8, -0.7, -0.5, -0.2, 0.1, 0.4, 0.5,
>   0.5, 0.6, 0.8, 1, 1.1, 1.1, 1, 0.9, 0.8, 0.6, 0.5, 0.5, 0.8,
>   0.9, 0.9, 0.8, 0.6, 0.4, 0.4, 0.3, 0.1, -0.2, -0.5, -0.7, -0.7,
>   -0.7, -0.8, -1, -1.2, -1.3, -1, -0.8, -0.7, -0.7, -0.7, -0.7,
>   -0.7, -0.8, -0.9, -0.8, -0.6, -0.3, 0, 0.3, 0.6, 0.8, 1.1, 1.4,
>   1.6, 1.9, 2.1, 2.1, 1.8, 1.2, 0.6, 0, -0.5, -0.8, -1, -1.2, -1.3,
>   -1.6, -1.9, -2, -1.9, -1.6, -1.2, -1, -0.8, -0.7, -0.5, -0.4,
>   -0.4, -0.6, -0.8, -0.7, -0.5, -0.5, -0.6, -0.6, -0.8, -1, -1.1,
>   -1.2, -1.4, -1.5, -1.6, -1.7, -1.5, -1.1, -0.7, -0.5, -0.3, -0.1,
>   0.2, 0.4, 0.6, 0.7, 0.8, 0.8, 0.6, 0.6, 0.3, 0.3, 0.3, 0.4, 0.4,
>   0.4, 0.5, 0.7, 0.8, 0.8, 0.7, 0.5, 0.1, -0.2, -0.3, -0.3, -0.3,
>   -0.4, -0.4, -0.3, -0.1, -0.1, -0.1, 0.1, 0.2, 0.3, 0.2, 0, 0,
>   0.2, 0.3, 0.5, 0.5, 0.6, 0.5, 0.4, 0.3, 0.3, 0.4, 0.4, 0.2, 0,
>   -0.1, 0, 0, -0.1, -0.4, -0.6, -0.5, -0.4, -0.3, -0.3, -0.4, -0.4,
>   -0.3, -0.2, -0.2, -0.1, -0.1, 0, 0.1, 0.3, 0.5, 0.6, 0.7, 1,
>   1.5, 1.9, 2.1, 2.2, 2.2, 1.9, 1.5, 1.2, 0.9, 0.6, 0.2, -0.2,
>   -0.5, -0.8, -0.9, -0.8, -0.5, -0.3, -0.2, -0.4, -0.5, -0.5, -0.3,
>   -0.2, -0.3, -0.6, -0.9, -1.1, -1, -0.9, -0.7, -0.7, -0.7, -0.6,
>   -0.5, -0.5, -0.5, -0.4, -0.4, -0.4, -0.5, -0.4, -0.2, -0.2, -0.1,
>   0, 0.3, 0.5, 0.7, 0.9, 1.1, 1.2, 1.2, 1.3, 1.2, 1.1, 1, 1.2,
>   1.4, 1.6, 1.6, 1.5, 1.3, 1.1, 0.7, 0.5, 0.1, -0.2, -0.7, -1.2,
>   -1.3, -1.2, -1.3, -1.6, -1.9, -1.9, -1.7, -1.5, -1.1, -0.8, -0.6,
>   -0.4, -0.3, -0.3, -0.3, -0.3, -0.2, -0.1, 0.1, 0.2, 0.2, 0.2,
>   0.2, 0.2, 0.3, 0.3, 0.3, 0.3, 0.3, 0.4, 0.3, 0.2, 0.2, 0.3, 0.5,
>   0.7, 0.8, 0.7, 0.7, 0.8, 1.1, 1.4, 1.6, 1.5, 1.4, 1.2, 1, 0.7,
>   0.3, 0, -0.2, -0.3, -0.2, 0, 0.2, 0.3, 0.5, 0.6, 0.6, 0.5, 0.3,
>   0.2, 0.2, 0.2, 0.1, 0.1, 0.1, 0.1, 0.2, 0.3, 0.4, 0.4, 0.4, 0.4,
>   0.5, 0.7, 1, 1.2, 1, 0.8, 0.6, 0.3, 0.2, 0, -0.1, -0.4, -0.7,
>   -0.8, -0.9, -0.9, -0.9, -0.8, -0.6, -0.4, -0.3, -0.2, -0.2, -0.3,
>   -0.3, -0.3, -0.4, -0.5, -0.5, -0.4, -0.1, 0.2, 0.7, 1.2, 1.5,
>   1.8, 2.1, 2.3, 2.4, 2.3, 2.2, 1.8, 1.4, 0.9, 0.4, -0.2, -0.7,
>   -1, -1.2, -1.2, -1.4, -1.5, -1.5, -1.3, -1, -0.9, -0.9, -1, -1,
>   -1.1, -1.1, -1.3, -1.5, -1.7, -1.7, -1.5, -1.1, -0.9, -0.8, -0.7,
>   -0.6, -0.5, -0.5, -0.6, -0.8, -0.8, -0.7, -0.6, -0.5, -0.3, -0.2,
>   -0.1, 0, 0, -0.1, -0.2, -0.2, -0.3, -0.2, 0, 0.1, 0.3, 0.5, 0.7,
>   0.8, 0.8, 0.9, 1.2, 1.3, 1.3, 1.1, 0.8, 0.4, 0, -0.2, -0.1, 0.2,
>   0.4, 0.4, 0.4, 0.4, 0.3, 0.3, 0.2, 0.1, 0.1, 0.1, 0.3, 0.5, 0.7,
>   0.7, 0.7, 0.7, 0.7, 0.6, 0.4, 0.3, 0.3, 0.3, 0.3, 0.2, 0.1, 0,
>   -0.2, -0.5, -0.8, -0.9, -0.7, -0.5, -0.3, 0, 0.1, 0.2, 0.3, 0.5,
>   0.8, 1, 1, 0.7, 0.3, -0.1, -0.2, -0.3, -0.3, -0.3, -0.6, -0.9,
>   -1.1, -1.2, -1.4, -1.5, -1.5, -1.2, -0.9, -0.7, -0.5, -0.3, -0.2,
>   -0.1, -0.2, -0.4, -0.7, -0.9, -0.8, -0.6, -0.2, 0.1, 0.4, 0.5,
>   0.6, 0.7, 1, 1.4, 1.6, 1.6, 1.4, 1.1, 0.7, 0.2, -0.3, -0.8, -1.2,
>   -1.4, -1.5, -1.5, -1.5, -1.4, -1.3, -1, -0.7, -0.4, -0.2, -0.2,
>   -0.3, -0.6, -0.8, -1, -1), .Tsp = c(1950, 2011.91666666667, 12
>   ), class = "ts")
>>
>   De: John Kane <jrkrideau@inbox.com<mailto:jrkrideau@inbox.com>>
>   Para: Denisse Archundia <denissearchundia@yahoo.com.mx<mailto:denissearchundia@yahoo.com.mx>>
>   Enviado: Martes, 3 de julio, 2012 13:57:16
>   Asunto: Re: [R] how to do a graph with tree different colors??
>   Thank you for the data but it would be better to receive it in the
> form that
>   dput() supplies.  If your dataset is called Mydata, then
>   issue the command dput(Mydata) and copy the output into the email.
>   At the moment I am not sure how go graph your data as it is not
> easy to get
>   the months and years together.
>
>   John Kane
>   Kingston ON Canada
>
>   -----Original Message-----
>   From: denissearchundia@yahoo.com.mx<mailto:denissearchundia@yahoo.com.mx>
>   Sent: Tue, 3 Jul 2012 09:12:40 -0700 (PDT)
>   To: jrkrideau@inbox.com<mailto:jrkrideau@inbox.com>
>   Subject: Re: [R] how to do a graph with tree different colors??
>
>   i works with the oceanic niño index:
>
>   YEAR A B C D E F G H I J K L
>   1950 -1,4 -1,3 -1,2 -1,2 -1,1 -0,9 -0,6 -0,5 -0,4 -0,5 -0,5 -0,7
>   1951 -0,8 -0,6 -0,4 -0,2 0 0,4 0,6 1 1,1 1,2 1,1 0,9
>   1952 0,6 0,4 0,3 0,3 0,3 0,1 -0,1 0 0,2 0,2 0,2 0,3
>   1953 0,5 0,6 0,6 0,7 0,7 0,7 0,7 0,7 0,8 0,8 0,8 0,7
>   1954 0,7 0,5 0,1 -0,3 -0,5 -0,5 -0,6 -0,7 -0,8 -0,7 -0,7 -0,7
>   1955 -0,7 -0,7 -0,7 -0,8 -0,8 -0,8 -0,8 -0,7 -1 -1,4 -1,7 -1,6
>   1956 -1,1 -0,8 -0,6 -0,5 -0,5 -0,5 -0,5 -0,6 -0,5 -0,5 -0,5 -0,5
>   1957 -0,3 0 0,4 0,7 0,9 1 1,1 1,2 1,2 1,3 1,5 1,8
>   1958 1,8 1,6 1,2 0,9 0,7 0,6 0,5 0,3 0,3 0,4 0,5 0,6
>   1959 0,6 0,6 0,5 0,3 0,2 -0,1 -0,2 -0,3 -0,1 0 0,1 0
>   1960 -0,1 -0,2 -0,2 -0,1 -0,1 0 0,1 0,2 0,2 0,1 0,1 0,1
>   1961 0 0 0 0,1 0,3 0,4 0,2 -0,1 -0,3 -0,3 -0,2 -0,1
>   1962 -0,2 -0,3 -0,3 -0,3 -0,2 -0,1 0 -0,1 -0,2 -0,3 -0,4 -0,5
>   1963 -0,4 -0,2 0,1 0,2 0,3 0,5 0,8 1,1 1,2 1,3 1,4 1,3
>   1964 1,1 0,6 0,1 -0,3 -0,6 -0,6 -0,6 -0,7 -0,8 -0,8 -0,8 -0,8
>   1965 -0,6 -0,3 0 0,2 0,5 0,8 1,2 1,4 1,7 1,9 1,9 1,7
>   1966 1,4 1,1 0,9 0,6 0,4 0,3 0,2 0,1 0 -0,1 -0,1 -0,2
>   1967 -0,3 -0,4 -0,5 -0,4 -0,2 0,1 0,1 -0,1 -0,3 -0,3 -0,3 -0,4
>   1968 -0,6 -0,8 -0,7 -0,5 -0,2 0,1 0,4 0,5 0,5 0,6 0,8 1
>   1969 1,1 1,1 1 0,9 0,8 0,6 0,5 0,5 0,8 0,9 0,9 0,8
>   1970 0,6 0,4 0,4 0,3 0,1 -0,2 -0,5 -0,7 -0,7 -0,7 -0,8 -1
>   1971 -1,2 -1,3 -1 -0,8 -0,7 -0,7 -0,7 -0,7 -0,7 -0,8 -0,9 -0,8
>   1972 -0,6 -0,3 0 0,3 0,6 0,8 1,1 1,4 1,6 1,9 2,1 2,1
>   1973 1,8 1,2 0,6 0 -0,5 -0,8 -1 -1,2 -1,3 -1,6 -1,9 -2
>   1974 -1,9 -1,6 -1,2 -1 -0,8 -0,7 -0,5 -0,4 -0,4 -0,6 -0,8 -0,7
>   1975 -0,5 -0,5 -0,6 -0,6 -0,8 -1 -1,1 -1,2 -1,4 -1,5 -1,6 -1,7
>   1976 -1,5 -1,1 -0,7 -0,5 -0,3 -0,1 0,2 0,4 0,6 0,7 0,8 0,8
>   1977 0,6 0,6 0,3 0,3 0,3 0,4 0,4 0,4 0,5 0,7 0,8 0,8
>   1978 0,7 0,5 0,1 -0,2 -0,3 -0,3 -0,3 -0,4 -0,4 -0,3 -0,1 -0,1
>   1979 -0,1 0,1 0,2 0,3 0,2 0 0 0,2 0,3 0,5 0,5 0,6
>   1980 0,5 0,4 0,3 0,3 0,4 0,4 0,2 0 -0,1 0 0 -0,1
>   1981 -0,4 -0,6 -0,5 -0,4 -0,3 -0,3 -0,4 -0,4 -0,3 -0,2 -0,2 -0,1
>   1982 -0,1 0 0,1 0,3 0,5 0,6 0,7 1 1,5 1,9 2,1 2,2
>   1983 2,2 1,9 1,5 1,2 0,9 0,6 0,2 -0,2 -0,5 -0,8 -0,9 -0,8
>   1984 -0,5 -0,3 -0,2 -0,4 -0,5 -0,5 -0,3 -0,2 -0,3 -0,6 -0,9 -1,1
>   1985 -1 -0,9 -0,7 -0,7 -0,7 -0,6 -0,5 -0,5 -0,5 -0,4 -0,4 -0,4
>   1986 -0,5 -0,4 -0,2 -0,2 -0,1 0 0,3 0,5 0,7 0,9 1,1 1,2
>   1987 1,2 1,3 1,2 1,1 1 1,2 1,4 1,6 1,6 1,5 1,3 1,1
>   1988 0,7 0,5 0,1 -0,2 -0,7 -1,2 -1,3 -1,2 -1,3 -1,6 -1,9 -1,9
>   1989 -1,7 -1,5 -1,1 -0,8 -0,6 -0,4 -0,3 -0,3 -0,3 -0,3 -0,2 -0,1
>   1990 0,1 0,2 0,2 0,2 0,2 0,2 0,3 0,3 0,3 0,3 0,3 0,4
>   1991 0,3 0,2 0,2 0,3 0,5 0,7 0,8 0,7 0,7 0,8 1,1 1,4
>   1992 1,6 1,5 1,4 1,2 1 0,7 0,3 0 -0,2 -0,3 -0,2 0
>   1993 0,2 0,3 0,5 0,6 0,6 0,5 0,3 0,2 0,2 0,2 0,1 0,1
>   1994 0,1 0,1 0,2 0,3 0,4 0,4 0,4 0,4 0,5 0,7 1 1,2
>   1995 1 0,8 0,6 0,3 0,2 0 -0,1 -0,4 -0,7 -0,8 -0,9 -0,9
>   1996 -0,9 -0,8 -0,6 -0,4 -0,3 -0,2 -0,2 -0,3 -0,3 -0,3 -0,4 -0,5
>   1997 -0,5 -0,4 -0,1 0,2 0,7 1,2 1,5 1,8 2,1 2,3 2,4 2,3
>   1998 2,2 1,8 1,4 0,9 0,4 -0,2 -0,7 -1 -1,2 -1,2 -1,4 -1,5
>   1999 -1,5 -1,3 -1 -0,9 -0,9 -1 -1 -1,1 -1,1 -1,3 -1,5 -1,7
>   2000 -1,7 -1,5 -1,1 -0,9 -0,8 -0,7 -0,6 -0,5 -0,5 -0,6 -0,8 -0,8
>   2001 -0,7 -0,6 -0,5 -0,3 -0,2 -0,1 0 0 -0,1 -0,2 -0,2 -0,3
>   2002 -0,2 0 0,1 0,3 0,5 0,7 0,8 0,8 0,9 1,2 1,3 1,3
>   2003 1,1 0,8 0,4 0 -0,2 -0,1 0,2 0,4 0,4 0,4 0,4 0,3
>   2004 0,3 0,2 0,1 0,1 0,1 0,3 0,5 0,7 0,7 0,7 0,7 0,7
>   2005 0,6 0,4 0,3 0,3 0,3 0,3 0,2 0,1 0 -0,2 -0,5 -0,8
>   2006 -0,9 -0,7 -0,5 -0,3 0 0,1 0,2 0,3 0,5 0,8 1 1
>   2007 0,7 0,3 -0,1 -0,2 -0,3 -0,3 -0,3 -0,6 -0,9 -1,1 -1,2 -1,4
>   2008 -1,5 -1,5 -1,2 -0,9 -0,7 -0,5 -0,3 -0,2 -0,1 -0,2 -0,4 -0,7
>   2009 -0,9 -0,8 -0,6 -0,2 0,1 0,4 0,5 0,6 0,7 1 1,4 1,6
>   2010 1,6 1,4 1,1 0,7 0,2 -0,3 -0,8 -1,2 -1,4 -1,5 -1,5 -1,5
>   2011 -1,4 -1,3 -1 -0,7 -0,4 -0,2 -0,2 -0,3 -0,6 -0,8 -1 -1
>
>   THANKS
>   DENISSE
>   De: John Kane <jrkrideau@inbox.com<mailto:jrkrideau@inbox.com>>
>   Para:denissearchundia<denissearchundia@yahoo.com.mx<mailto:denissearchundia@yahoo.com.mx>>;r-help@r-project.org
>   Enviado: Martes, 3 de julio, 2012 8:03:23
>   Asunto: RE: [R] how to do a graph with tree different colors??
>   Any  sample  data for us to work with?  See ?dput for a good
> method of
>   supplying sample data.
>   John Kane
>   Kingston ON Canada
>> -----Original Message-----
>> From: [1]denissearchundia@yahoo.com.mx<mailto:denissearchundia@yahoo.com.mx>
>> Sent: Mon, 2 Jul 2012 14:04:53 -0700 (PDT)
>> To: [2]r-help@r-project.org<mailto:r-help@r-project.org>
>> Subject: [R] how to do a graph with tree different colors??
>>
>> hi
>>
>> i try to do a graph of a time series which shows in red the values >
>> -0.05,
>> in blue the values >0.05 and in white the values between -0.05 and
>> 0.05
>>
>> for un exemple :[3]http://www.appinsys.com/globalwarming/enso.htm
>>
>> thanks !!!!!
>>
>> denisse
>>
>> --
>> View this message in context:
>>
>   [4]http://r.789695.n4.nabble.com/how-to-do-a-graph-with-tree-different-color
>   s-tp4635206.html
>> Sent from the R help mailing list archive at Nabble.com.
>


David Winsemius, MD
West Hartford, CT
______________________________________________
R-help@r-project.org<mailto: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.

	[[alternative HTML version deleted]]

