This should do what you want: x<-1:10 y1<-x+runif(10)*2 y2<-seq(0,50,length.out=10)+rnorm(10)*10
plot(y1~x, bty='c') par(new=TRUE) # plot on the same graph plot(y2~x, col='red', axes=FALSE, bty='c', xlab='', ylab='') axis(4, col.axis='red', col='red') mtext("y2", 4, col='red', line=-2) On Wed, Feb 27, 2008 at 5:05 PM, milton ruser <[EMAIL PROTECTED]> wrote: > Dear all > > I have a code like > > x<-1:10 > y1<-x+runif(10)*2 > y2<-seq(0,50,length.out=10)+rnorm(10)*10 > > par(mfrow=c(1,2)) > plot(y1~x) > plot(y2~x) > > Now I would like to plot y1 and y2 on the same graph, with its two scales > (y1 on left and y2 on rigth side). > > Any help are welcome. > > Kind regards > > Miltinho > > Brazil > > [[alternative HTML version deleted]] > > ______________________________________________ > 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. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem you are trying to solve? Tell me what you want to do, not how you want to do it. ______________________________________________ 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.