>>> Ted Harding <[EMAIL PROTECTED]> 07/13/05 02:12AM >>>
[snip] >> I'm not sufficiently acquainted with the internals of "plot" >> and friends to anticipate the answer to this question; but, >> anyway, the question is: >> >> Is it feasible to include, as a parameter to "plot", "lines" >> and "points", >> >> rescale=FALSE >> >> where this default value would maintain the existing behaviour >> of these functions, while setting >> >> rescale=TRUE >> >> would allow each succeeding plot, adding graphs using "points" >> or "lines", to be rescaled (as in Matlab/Octave) so as to >> include the entirety of each successive graph? I tried editing the range in the result from "recordPlot" and it crashed R on my system, so it probably is not trivial to rescale an existing plot on the standard devices. Part of the issue is what information is saved when the plot is made and what is recomputed each time. Apparently octave/matlab and R do this quite differently. Others have suggested using matplot. you can also manually save all the relevent information yourself to redo the plots. The other option is to use a different graphics device that supports rescaling. One option is "rgl" using the rgl package and the rgl.lines function (it will auto rescale, but seems overkill for this case). Another option is to go a similar route to octave and to have gnuplot do the actual plotting (and keep the info to rescale when needed). Below are some functions I wrote for passing the data to gnuplot (I am working on windows and downloaded the win32 version of gnuplot from http://www.gnuplot.info). Some editing may be neccessary for these to work on other systems. If there is interest I may debug and expand these functions and include them in a package. To do the original example with these functions: gp.open() x <- seq(0,2,0.1) gp.plot(x,sin(x), type='l') gp.plot(x,1.5*cos(x), type='l', add=T) gp.send('set yrange [-1.6:1.6]') # force my own range gp.send() gp.send('set yrange [*:*]') # return to autoscaling gp.send() gp.close() The function definitions are: gp.open <- function(where='c:/progra~1/GnuPlot/bin/pgnuplot.exe'){ .gp <<- pipe(where,'w') .gp.tempfiles <<- character(0) invisible(.gp) } gp.close <- function(pipe=.gp){ cat("quit\n",file=pipe) close(pipe) if(exists('.gp.tempfiles')){ unlink(.gp.tempfiles) rm(.gp.tempfiles,pos=1) } rm(.gp,pos=1) invisible() } gp.send <- function(cmd='replot',pipe=.gp){ cat(cmd, file=pipe) cat("\n",file=pipe) invisible() } gp.plot <- function(x,y,type='p',add=F, title=deparse(substitute(y)), pipe=.gp){ tmp <- tempfile() .gp.tempfiles <<- c(.gp.tempfiles, tmp) write.table( cbind(x,y), tmp, row.names=FALSE, col.names=FALSE ) w <- ifelse(type=='p', 'points', 'lines') r <- ifelse(add, 'replot', 'plot') cat( paste(r," '",tmp,"' with ",w," title '",title,"'\n",sep=''), file=pipe) invisible() } Hope this helps, Greg Snow, Ph.D. Statistical Data Center, LDS Hospital Intermountain Health Care [EMAIL PROTECTED] (801) 408-8111 ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
