Hi:

Is this what you had in mind?

library(reshape2)
df <- df[, -10]       # last variable is superfluous
dm <- melt(df, id = 'day')
head(dm)
  day variable value
1   1     var1     1
2   2     var1     2
3   3     var1     3
4   4     var1     4
5   1     var2   100
6   2     var2   200
xyplot(value ~ day | variable, data = dm,
      scales = list(y = list(relation = 'free')))

melt() is useful in this problem because it stacks the data in 'long' form
and creates a factor 'variable' whose levels are the variable names. The
variable 'value' contains the responses. Conditioning on 'variable' in dm
then gets you individual plots of value ~ day by variable. You can use
layout = to specify the arrangement of plots per page, and perhaps as.table
= TRUE if you want the plots rendered from top left rather than bottom left.

HTH,
Dennis

On Mon, Nov 8, 2010 at 10:19 AM, Marcus Drescher <drescher@tum.de> wrote:

> Dear all,
>
> I am trying (!!!) to generate pdfs that have 8 plots on one page:
>
>
> df = data.frame(
>        day = c(1,2,3,4),
>        var1 = c(1,2,3,4),
>        var2 = c(100,200,300,4000),
>        var3 = c(10,20,300,40000),
>        var4 = c(100000,20000,30000,4000),
>        var5 = c(10,20,30,40),
>        var6 = c(0.001,0.002,0.003,0.004),
>        var7 = c(123,223,123,412),
>        var8 = c(213,123,234,435),
>        all = as.factor(c(1,1,1,1)))
>
> pdf("test1.pdf", width=20, heigh=27, paper="a4")
>    print(plot(groupedData(var1 ~ day | all, data = df), main = "var1",
> xlab="", ylab=""), split=c(1,1,2,4), more=TRUE)
>    print(plot(groupedData(var2 ~ day | all, data = df), main = "var2",
> xlab="", ylab=""), split=c(1,2,2,4), more=TRUE)
>    print(plot(groupedData(var3 ~ day | all, data = df), main = "var3",
> xlab="", ylab=""), split=c(1,3,2,4), more=TRUE)
>    print(plot(groupedData(var4 ~ day | all, data = df), main = "var4",
> xlab="", ylab=""), split=c(1,4,2,4), more=TRUE)
>    print(plot(groupedData(var5 ~ day | all, data = df), main = "var5",
> xlab="", ylab=""), split=c(2,1,2,4), more=TRUE)
>    print(plot(groupedData(var6 ~ day | all, data = df), main = "var6",
> xlab="", ylab=""), split=c(2,2,2,4), more=TRUE)
>    print(plot(groupedData(var7 ~ day | all, data = df), main = "var7",
> xlab="", ylab=""), split=c(2,3,2,4), more=TRUE)
>    print(plot(groupedData(var8 ~ day | all, data = df), main = "var8",
> xlab="", ylab=""), split=c(2,4,2,4))
> dev.off()
>
>
> My problem is that the separate plots all have different sizes. (Some are
> tall, but very small, or the other way around. The target is to have equally
> tall and wide graphs. (The variables have different scales. Grouping does
> not work.)
>
> Optimally, the plots would use the complete pdf page.
>
> Any ideas how to adjust height and width?
>
> Best
> Marcus
>
> ______________________________________________
> 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.
>

	[[alternative HTML version deleted]]

