Many thanks Eik it works properly.

what I don´t know exactly is why you put
c(xv,rev(xv)),c(efinal,rev(efinal2)),col="red" inside polygon. I see it
works but for the moment I don´t really see the meaning of c() and why is
needed to put twice and so on.

If I had a vector of dates associated with each row (imagine t.csv)

t<-read.csv("t.csv")

tp<-as.Date(t[,2], format="%d/%m/%Y")

I see that if I put

plot(efinal, tp. ylim=range(c(efinal,efinal2)),type="n",ylab="")
xv<-seq_along(efinal)
polygon(c(xv,rev(xv)),c(efinal,rev(efinal2)),col="red")


It doesn´t work.

I can use xaxt="n" but it will be ok to put associated "date" on x axis.

Sorry in advance if I only ask but it is difficoult to me, anyway many
thanks and I will keep on trying. Many people (with some original reason)
get ennoyed for some silly questions, so I send many thanks for read me and
try to help me.

Many, many thanks.

2012/8/2 Eik Vettorazzi <E.Vettorazzi@uke.de>

> Hi Jose,
> this should work (but I think you need a deeper understanding, what
> plot(efinal) does, see ?plot):
>
> plot(efinal,ylim=range(c(efinal,efinal2)),type="n",ylab="")
> xv<-seq_along(efinal)
> polygon(c(xv,rev(xv)),c(efinal,rev(efinal2)),col="red")
>
> cheers
>
> Am 02.08.2012 16:36, schrieb Jose Narillos de Santos:
> > Hi I attach my function. No error message (it seems a line appears but
> > nothing similar to examples(polygon))
> >
> >
> >
> > 2012/8/2 Eik Vettorazzi <E.Vettorazzi@uke.de <mailto:E.Vettorazzi@uke.de
> >>
> >
> >     Hi Jose,
> >     how about this
> >
> >     example(polygon)
> >
> >     I think the second one is pretty much what you want.
> >
> >     cheers.
> >
> >     Am 02.08.2012 14:33, schrieb Jose Narillos de Santos:
> >     > Hi all,
> >     >
> >     > I have two vectors (columns) called "efinal" and "efinal 2".
> >     >
> >     > I want to plot them on the same plot and "draw" a shaded area
> >     beween the
> >     > two lines using function polygon
> >     >
> >     > I have tried all but I don ´t understand the polygon area, can you
> >     help me
> >     > with examples?
> >     >
> >     > plot(efinal,type="l",ylim=range(min(efinal2),
> >     > max(efinal)),ylab="",main="plot")
> >     >
> >     > par(new=T)
> >     > plot(efinal2,type="l",ylim=range(min(efinal2),
> max(efinal)),ylab="")
> >     >
> >     > The efinal are two temporal series I attach?
> >     >
> >     >
> >     >
> >     > ______________________________________________
> >     > 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.
> >     >
> >
> >
> >     --
> >     Eik Vettorazzi
> >
> >     Department of Medical Biometry and Epidemiology
> >     University Medical Center Hamburg-Eppendorf
> >
> >     Martinistr. 52
> >     20246 Hamburg
> >
> >     T ++49/40/7410-58243 <tel:%2B%2B49%2F40%2F7410-58243>
> >     F ++49/40/7410-57790 <tel:%2B%2B49%2F40%2F7410-57790>
> >
> >     --
> >     Pflichtangaben gemäß Gesetz über elektronische Handelsregister und
> >     Genossenschaftsregister sowie das Unternehmensregister (EHUG):
> >
> >     Universitätsklinikum Hamburg-Eppendorf; Körperschaft des
> >     öffentlichen Rechts; Gerichtsstand: Hamburg
> >
> >     Vorstandsmitglieder: Prof. Dr. Guido Sauter (Vertreter des
> >     Vorsitzenden), Dr. Alexander Kirstein, Joachim Prölß, Prof. Dr. Dr.
> >     Uwe Koch-Gromus
> >
> >
>
>
> --
> Eik Vettorazzi
>
> Department of Medical Biometry and Epidemiology
> University Medical Center Hamburg-Eppendorf
>
> Martinistr. 52
> 20246 Hamburg
>
> T ++49/40/7410-58243
> F ++49/40/7410-57790
>
> --
> Pflichtangaben gemäß Gesetz über elektronische Handelsregister und
> Genossenschaftsregister sowie das Unternehmensregister (EHUG):
>
> Universitätsklinikum Hamburg-Eppendorf; Körperschaft des öffentlichen
> Rechts; Gerichtsstand: Hamburg
>
> Vorstandsmitglieder: Prof. Dr. Guido Sauter (Vertreter des Vorsitzenden),
> Dr. Alexander Kirstein, Joachim Prölß, Prof. Dr. Dr. Uwe Koch-Gromus
>
>

	[[alternative HTML version deleted]]

