Sorry for again asking the same question, but I am still not successfull, also
after using grid-package, as recommended previously:
I want to write a function() which generates a graphical output and can be used
in a loop to produce several results with a layout like in
par(mfrow=c(5,5))
for ( i in 1:10){
plot(1:10)
}
Here is the (experimental) code:
myfunction <- function(){
vp1 <- viewport(x=0.1, y=.7, w=.8, h=.2, just="left", name="vp1")
vp2 <- viewport(x=.1, y=.5, w=.8, h=.2, just="left", name="vp2")
pushViewport(vp1)
grid.rect(gp=gpar(col="grey"))
grid.text("vp1")
grid.xaxis(main=FALSE)
upViewport()
pushViewport(vp2)
grid.rect(gp=gpar(col="grey"))
grid.text("vp2")
grid.xaxis()
}
And the following loop:
par(mfrow=c(5,5))
for (i in 1:10) {
grid.newpage() # when ommitting this line, the following plots will
be plotted as childrens of the afore generated parent
myfunction()
}
In conclusion, every myfunction() result overwrites the output of the previous
output and is not plotted side by side as intended.
What to change?
Thanks a lot, Dirk
Dr.med. D. Weismann
Schwerpunkt Endokrinologie/Diabetologie
Medizinische Klinik und Poliklinik I
Universität Würzburg
Josef-Schneider-Str. 2
97080 Würzburg
email: [EMAIL PROTECTED]
Telefon: 0931/201-1
-----Ursprüngliche Nachricht-----
Von: Gabor Grothendieck [mailto:[EMAIL PROTECTED]
Gesendet: Mi 17.05.2006 03:19
An: Weismann, Dirk
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Betreff: Re: [R] multiple plots in a function()
Use grid graphics
http://www.stat.auckland.ac.nz/~paul/grid/grid.html
and the gridbase package to incorporate classic
graphics in that.
On 5/16/06, [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:
> Thanks a lot, but my problem is not to get a temporary change with par()in
> myfunction and return to 'oldpar'after finishing. What I want is, that the
> output of myfunction is handled like one graphic (ie one plot) and therefore
> I can get the output of myfunction 10times side by side in one window (e.g.
> mfrow=c(5,5)). But the 'par(mfrow=c(1,2))' inside 'myfunction' makes this
> impossible.
> I used plot(..,type="n")two times to initialize the graphics in 'myfunction'
> and filled both with a lot of low-level graphic code. Since I always need
> both graphical outputs to interpret the results, I prefer to write one
> function instead of two for each plot. This might not be the best way to
> create a graphical output in a function, but how to do it better?
>
> Thanks, Dirk
>
> -----Ursprüngliche Nachricht-----
> Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Gabor
> Grothendieck
> Gesendet: Dienstag, 16. Mai 2006 05:01
> An: Weismann, Dirk
> Cc: [email protected]
> Betreff: Re: [R] multiple plots in a function()
>
> You could override par by optionally passing it as an argument:
>
> f <- function(x = 1:10, y = 1:10, par = list(mfrow = c(2,2))) {
> if (!is.null(par)) {
> on.exit(par(opar))
> opar <- par(par)
> }
> plot(x)
> plot(y)
> }
>
> opar <- par(mfrow=c(4,4))
> for(i in 1:8) f(par = NULL)
> par(opar)
>
>
>
> On 5/15/06, [EMAIL PROTECTED]
> <[EMAIL PROTECTED]> wrote:
> > Dear all,
> > I have the following problem:
> > I have written a function genereating to plots, eg myfunction <-
> > (data, some.parameters) {
> > #some calculations etc
> > .
> > par (mfrow=c(1,2))
> > plot1(......)
> > plot2(.....)
> > }
> > which works fine. But for analysing several variants, I tried a slope, eg:
> >
> > par (mfrow=c(5,5))
> > for ( i in 1:10) {
> > myfunction(data, i)
> > }
> >
> > Off course, the par() in myfunction overwrites the par() before the slope.
> > So, how to write myfunction, that it plots two plots and can be used in the
> > slope like in the example?
> >
> > Thanks a lot, Dirk
> >
> > Dr.med Dirk Weismann
> > Schwerpunkt für Endokrinologie und Diabetologie Medizinische
> > Universitätsklinik I 97080 Würzburg
> > email: [EMAIL PROTECTED]
> > Telefon: 0049-931-201-36744
> >
> > [[alternative HTML version deleted]]
> >
> >
> >
> > ______________________________________________
> > [email protected] mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide!
> > http://www.R-project.org/posting-guide.html
> >
> >
>
> ______________________________________________
> [email protected] mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
>
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
