thr3ads.net - R help - [R] how to pause between graphics [Nov 2008]

If this information is useful, please help other people find it:
Share via:

Peter B. Mandeville

2008-Nov-25 13:08 UTC

[R] how to pause between graphics

Dear list:

 

Before posting this message, I read the posting guide, examined the manuals,
searched the R help files, and examined in detail the books that I have
available on R.

 

I am using R version 2.8.0 and WinXP.

 

I want to pause the R Graphics window to permit the use of the File,
History, and Resize options between each graphic in a series of graphics. If
I use the functions 

            

par(ask=T)

 

or

 

       devAskNewPage(ask=T)

 

between the graphics there is a pause but one cannot use the File, History,
and Resize options. For an example use 

       

demo(Graphics)

 

What I want to do is approximated by the following code:

 

trat <-
factor(c(rep("A",5),rep("B",5),rep("C",5)))

trat

resp <-
c(rnorm(5,mean=5,sd=1.75),rnorm(5,mean=6.5,sd=1.75),rnorm(5,mean=15,sd=1.75)
)

aovOBJ <- aov(resp~trat)

summary(aovOBJ)

 

AOV <- function(aovOBJ){

  print(tmp <- summary.lm(aovOBJ))

  boxplot(tmp$resid,col="grey")

  reply <- readline(prompt="Next:")

 
hist(tmp$resid,freq=F,col="grey",breaks="fd",xlab="",ylab="",main="")

  xfit <- seq(min(tmp$resid),max(tmp$resid),length=40)

  yfit <- dnorm(xfit,mean=mean(tmp$resid),sd=sd(tmp$resid))

  lines(xfit,yfit,col="red")

  reply <- readline(prompt="Next:")

  require(car,quietly=T) 

 
qq.plot(tmp$resid,ylab="empirical",main="",col="black")

  detach("package:car")

  reply <- readline(prompt="Next:")

  plot(density(tmp$resid),main="")

  reply <- readline(prompt="Next:")

  plot.design(aovOBJ$model)

  reply <- readline(prompt="Next:")

  tmp <- TukeyHSD(aovOBJ)

  plot(tmp)

}

 

AOV(aovOBJ)

 

There ought to exist a lot easier user friendly way to do this. Does anyone
know one?

 

Thank you very much,

 

pbm

 

Peter B. Mandeville

cel:    444 860 3204

tel: 52 444 826 2346-49 ext 532

fax: 52 444 826 2350

 

P.D. Favor de confirmar la llegada de este correo. Gracias.

 


	[[alternative HTML version deleted]]

Greg Snow

2008-Nov-25 16:19 UTC

head link

[R] how to pause between graphics

If the reason you want to pause is so that you can save a copy of the graph, or
go back and look at earlier ones, then it may be easiest to just write all the
graphs to a file to start with.  Use the pdf device, write all the graphs to the
pdf file, close the file using dev.off, then open the pdf file and page through
the graphs.

Not a direct answer to your question, but hope it helps,

--
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.snow at imail.org
801.408.8111

> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Peter B. Mandeville
> Sent: Tuesday, November 25, 2008 6:08 AM
> To: r-help at r-project.org
> Subject: [R] how to pause between graphics
>
> Dear list:
>
>
>
> Before posting this message, I read the posting guide, examined the
> manuals,
> searched the R help files, and examined in detail the books that I have
> available on R.
>
>
>
> I am using R version 2.8.0 and WinXP.
>
>
>
> I want to pause the R Graphics window to permit the use of the File,
> History, and Resize options between each graphic in a series of
> graphics. If
> I use the functions
>
>
>
> par(ask=T)
>
>
>
> or
>
>
>
>        devAskNewPage(ask=T)
>
>
>
> between the graphics there is a pause but one cannot use the File,
> History,
> and Resize options. For an example use
>
>
>
> demo(Graphics)
>
>
>
> What I want to do is approximated by the following code:
>
>
>
> trat <-
factor(c(rep("A",5),rep("B",5),rep("C",5)))
>
> trat
>
> resp <-
> c(rnorm(5,mean=5,sd=1.75),rnorm(5,mean=6.5,sd=1.75),rnorm(5,mean=15,sd>
1.75)
> )
>
> aovOBJ <- aov(resp~trat)
>
> summary(aovOBJ)
>
>
>
> AOV <- function(aovOBJ){
>
>   print(tmp <- summary.lm(aovOBJ))
>
>   boxplot(tmp$resid,col="grey")
>
>   reply <- readline(prompt="Next:")
>
>  
hist(tmp$resid,freq=F,col="grey",breaks="fd",xlab="",ylab="",main="")
>
>   xfit <- seq(min(tmp$resid),max(tmp$resid),length=40)
>
>   yfit <- dnorm(xfit,mean=mean(tmp$resid),sd=sd(tmp$resid))
>
>   lines(xfit,yfit,col="red")
>
>   reply <- readline(prompt="Next:")
>
>   require(car,quietly=T)
>
>  
qq.plot(tmp$resid,ylab="empirical",main="",col="black")
>
>   detach("package:car")
>
>   reply <- readline(prompt="Next:")
>
>   plot(density(tmp$resid),main="")
>
>   reply <- readline(prompt="Next:")
>
>   plot.design(aovOBJ$model)
>
>   reply <- readline(prompt="Next:")
>
>   tmp <- TukeyHSD(aovOBJ)
>
>   plot(tmp)
>
> }
>
>
>
> AOV(aovOBJ)
>
>
>
> There ought to exist a lot easier user friendly way to do this. Does
> anyone
> know one?
>
>
>
> Thank you very much,
>
>
>
> pbm
>
>
>
> Peter B. Mandeville
>
> cel:    444 860 3204
>
> tel: 52 444 826 2346-49 ext 532
>
> fax: 52 444 826 2350
>
>
>
> P.D. Favor de confirmar la llegada de este correo. Gracias.
>
>
>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at 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.

Kinoko

2008-Nov-26 01:21 UTC

head link

[R] how to pause between graphics

Thanks for the answer.

Surely, without popping windows it is a lot more convenient.
This piece of code seems to work for me.

def.par <- par(no.readonly = TRUE)
png(file="thisPlot.png", width = 1200, height = 800, units =
"px",
pointsize = 12)

plot(blah-blah...

dev.off()
par(def.par)



best
g



On Nov 26, 1:19?am, Greg Snow <Greg.S... at imail.org>
wrote:> If the reason you want to pause is so that you can save a copy of the
graph, or go back and look at earlier ones, then it may be easiest to just write
all the graphs to a file to start with. ?Use the pdf device, write all the
graphs to the pdf file, close the file using dev.off, then open the pdf file and
page through the graphs.
>
> Not a direct answer to your question, but hope it helps,
>
> --
> Gregory (Greg) L. Snow Ph.D.
> Statistical Data Center
> Intermountain Healthcare
> greg.s... at imail.org
> 801.408.8111
>
>
>
> > -----Original Message-----
> > From: r-help-boun... at r-project.org [mailto:r-help-bounces at r-
> > project.org] On Behalf Of Peter B. Mandeville
> > Sent: Tuesday, November 25, 2008 6:08 AM
> > To: r-h... at r-project.org
> > Subject: [R] how to pause between graphics
>
> > Dear list:
>
> > Before posting this message, I read the posting guide, examined the
> > manuals,
> > searched the R help files, and examined in detail the books that I
have
> > available on R.
>
> > I am using R version 2.8.0 and WinXP.
>
> > I want to pause the R Graphics window to permit the use of the File,
> > History, and Resize options between each graphic in a series of
> > graphics. If
> > I use the functions
>
> > par(ask=T)
>
> > or
>
> > ? ? ? ?devAskNewPage(ask=T)
>
> > between the graphics there is a pause but one cannot use the File,
> > History,
> > and Resize options. For an example use
>
> > demo(Graphics)
>
> > What I want to do is approximated by the following code:
>
> > trat <-
factor(c(rep("A",5),rep("B",5),rep("C",5)))
>
> > trat
>
> > resp <-
> >
c(rnorm(5,mean=5,sd=1.75),rnorm(5,mean=6.5,sd=1.75),rnorm(5,mean=15,sd> >
1.75)
> > )
>
> > aovOBJ <- aov(resp~trat)
>
> > summary(aovOBJ)
>
> > AOV <- function(aovOBJ){
>
> > ? print(tmp <- summary.lm(aovOBJ))
>
> > ? boxplot(tmp$resid,col="grey")
>
> > ? reply <- readline(prompt="Next:")
>
> > ?
hist(tmp$resid,freq=F,col="grey",breaks="fd",xlab="",ylab="",main="")
>
> > ? xfit <- seq(min(tmp$resid),max(tmp$resid),length=40)
>
> > ? yfit <- dnorm(xfit,mean=mean(tmp$resid),sd=sd(tmp$resid))
>
> > ? lines(xfit,yfit,col="red")
>
> > ? reply <- readline(prompt="Next:")
>
> > ? require(car,quietly=T)
>
> > ?
qq.plot(tmp$resid,ylab="empirical",main="",col="black")
>
> > ? detach("package:car")
>
> > ? reply <- readline(prompt="Next:")
>
> > ? plot(density(tmp$resid),main="")
>
> > ? reply <- readline(prompt="Next:")
>
> > ? plot.design(aovOBJ$model)
>
> > ? reply <- readline(prompt="Next:")
>
> > ? tmp <- TukeyHSD(aovOBJ)
>
> > ? plot(tmp)
>
> > }
>
> > AOV(aovOBJ)
>
> > There ought to exist a lot easier user friendly way to do this. Does
> > anyone
> > know one?
>
> > Thank you very much,
>
> > pbm
>
> > Peter B. Mandeville
>
> > cel: ? ?444 860 3204
>
> > tel: 52 444 826 2346-49 ext 532
>
> > fax: 52 444 826 2350
>
> > P.D. Favor de confirmar la llegada de este correo. Gracias.
>
> > ? ? ? ? [[alternative HTML version deleted]]
>
> > ______________________________________________
> > R-h... at r-project.org mailing list
> >https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guidehttp://www.R-project.org/posting-
> > guide.html
> > and provide commented, minimal, self-contained, reproducible code.
>
> ______________________________________________
> R-h... at r-project.org mailing
listhttps://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

R help - Nov 2008 - how to pause between graphics

[R] how to pause between graphics

[R] how to pause between graphics

[R] how to pause between graphics