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.vettora...@uke.de <mailto:e.vettora...@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 ______________________________________________ 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.
