Hi Erin, Actually your original code does create 3 distinct graphs. (At least for me on Win XP). If you are using a different OS, you might want to try something like x11() instead.
Tal ----------------Contact Details:------------------------------------------------------- Contact me: tal.gal...@gmail.com | 972-52-7275845 Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) | www.r-statistics.com (English) ---------------------------------------------------------------------------------------------- On Sat, Jul 31, 2010 at 11:34 PM, Erin Hodgess <erinm.hodg...@gmail.com>wrote: > This will work. > > I was hoping for 3 "distinct" graphs so the user would be able to click on > them. > > Thanks, > Erin > > > On Fri, Jul 30, 2010 at 11:07 PM, Tal Galili <tal.gal...@gmail.com> wrote: > > Hello Erin. > > I think I understand. > > Those the following code solve your issue ? > > > > #---------------------------------------- > > #Set up date for zoo object > > library(zoo) > > xdate <- seq(as.Date("2002-01-01"),as.Date("2010-06-30"),by="day") > > length(xdate) > > xt <- zoo(rnorm(3103),order=xdate) > > library(qcc) > > > > eplot2<- > > function(x){ > > require(zoo) > > require(qcc) > > #dev.new() > > plot(x) > > z <- locator(2,type="l",col="red") > > #dev.new() > > par(mfrow = c(1,3)) > > plot(x) > > points(z, ,type="l",col="red") > > plot(window(x, start = min(z$x), end = max(z$x)),ylab=" ") > > #dev.new() > > ewma(window(x, start = min(z$x), end = max(z$x)),title=" ") > > } > > eplot2(xt) > > #---------------------------------------- > > (p.s: please keep the replaying also to the mailing list so everyone > might > > offer help/benefit from a solution) > > Best, > > Tal > > > > > > > > ----------------Contact > > Details:------------------------------------------------------- > > Contact me: tal.gal...@gmail.com | 972-52-7275845 > > Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) | > > www.r-statistics.com (English) > > > ---------------------------------------------------------------------------------------------- > > > > > > > > > > On Fri, Jul 30, 2010 at 9:19 PM, Erin Hodgess <erinm.hodg...@gmail.com> > > wrote: > >> > >> Absolutely. > >> > >> #Set up date for zoo object > >> library(zoo) > >> xdate <- seq(as.Date("2002-01-01"),as.Date("2010-06-30"),by="day") > >> length(xdate) > >> xt <- zoo(rnorm(3103),order=xdate) > >> library(qcc) > >> eplot2 > >> function(x){ > >> require(zoo) > >> require(qcc) > >> dev.new() > >> plot(x) > >> > >> z <- locator(2,type="l",col="red") > >> dev.new() > >> plot(window(x, start = min(z$x), end = max(z$x)),ylab=" ") > >> dev.new() > >> ewma(window(x, start = min(z$x), end = max(z$x)),title=" ") > >> > >> } > >> eplot2(xt) > >> > >> Okay. The first graph appears. The user selects 2 points as a > >> subset. Then I want to have 3 graphs appear simultaneously. The > >> first is the original graph with a line segment between the two > >> points. The second is the graph of the subset. The third is the EWMA > >> of the subset data. > >> > >> Thanks, > >> Erin > >> > >> > >> > >> On Fri, Jul 30, 2010 at 10:13 AM, Tal Galili <tal.gal...@gmail.com> > wrote: > >> > Hi Erin, > >> > Could you please add a simple self contained code for us to try and > help > >> > you > >> > with? > >> > (giving us code with ">" doesn't help) > >> > Best, > >> > Tal > >> > > >> > ----------------Contact > >> > Details:------------------------------------------------------- > >> > Contact me: tal.gal...@gmail.com | 972-52-7275845 > >> > Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il(Hebrew) | > >> > www.r-statistics.com (English) > >> > > >> > > ---------------------------------------------------------------------------------------------- > >> > > >> > > >> > > >> > > >> > On Thu, Jul 29, 2010 at 10:21 PM, Erin Hodgess < > erinm.hodg...@gmail.com> > >> > wrote: > >> >> > >> >> Dear R People: > >> >> > >> >> Now I have a function with 3 graphics windows. I'd like for them all > >> >> to be visible. However, the first window goes blank. Here is the > >> >> basic setup. The first plot is the entire series. The user selects > >> >> two points, which in turns generates a subset plot and an EWMA subset > >> >> plot. Finally, if things worked right, the user should be able to > >> >> click on "Tile Vertically" and see all 3 windows. Also, there should > >> >> be a line segment on the original plot connecting the two selected > >> >> points. > >> >> > >> >> > library(zoo) > >> >> > xdate <- seq(as.Date("1998-01-01"),as.Date("2010-06-30"),by="day") > >> >> > length(xdate) > >> >> [1] 4564 > >> >> > xt <- zoo(rnorm(4564),order=xdate) > >> >> > eplot > >> >> function (x) > >> >> { > >> >> x11() > >> >> plot(x) > >> >> z <- locator(2) > >> >> x11() > >> >> plot(window(x, start = min(z$x), end = max(z$x))) > >> >> dev.set(dev.prev()) > >> >> segments(z$x[1],z$y[1],z$x[2],z$y[2],col="red") > >> >> dev.set(dev.next()) > >> >> x11() > >> >> ewma(window(x, start = min(z$x), end = max(z$x))) > >> >> dev.set(dev.prev()) > >> >> return(z) > >> >> } > >> >> > eplot(xt) > >> >> $x > >> >> [1] 9400.369 11592.073 > >> >> > >> >> $y > >> >> [1] 3.641633 3.353061 > >> >> > >> >> > > >> >> > >> >> How do I get that original plot to appear without losing any of the > >> >> other plots, please? > >> >> > >> >> Thanks, > >> >> Erin > >> >> > >> >> -- > >> >> Erin Hodgess > >> >> Associate Professor > >> >> Department of Computer and Mathematical Sciences > >> >> University of Houston - Downtown > >> >> mailto: erinm.hodg...@gmail.com > >> >> > >> >> ______________________________________________ > >> >> 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. > >> > > >> > > >> > >> > >> > >> -- > >> Erin Hodgess > >> Associate Professor > >> Department of Computer and Mathematical Sciences > >> University of Houston - Downtown > >> mailto: erinm.hodg...@gmail.com > > > > > > > > -- > Erin Hodgess > Associate Professor > Department of Computer and Mathematical Sciences > University of Houston - Downtown > mailto: erinm.hodg...@gmail.com > [[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.