R help - Jun 2008 - Concat Multiple Plots into one PNG figure

Dear experts,

I tried to put the two plots into one final PNG figure
with the following script.

However instead of giving 2 plots  in one figure,
it only gives the the last plot in one figure.

What's wrong with my script below?

__BEGIN__
in_fname <- paste("mydata.txt.",sep="")
out_fname <- paste("finalplot.png",sep="")

dat <- read.table(in_fname, comment.char = "!" , na.strings =
"null");
dat.pca <- prcomp(dat[,1:ncol(dat)], retx=TRUE, scores=TRUE)

trellis.device("png", color=TRUE)
png(out_fname)

# End figure expected to be 1 row 2 columns
par(mfrow = c(1,2))

# Two plots which I want to put into one PNG figure
xyplot(dat.pca$x[,1] ~ dat.pca$x[,2], xlab="First Component",
ylab="Second Component")
xyplot(dat.pca$x[,2] ~ dat.pca$x[,3], xlab="Second Component",
ylab="Third Component")

dev.off()

__END__

-- 
Gundala Viswanath

Dear experts,

I tried to put the two plots into one final PNG figure
with the following script.

However instead of giving 2 plots  in one figure,
it only gives the the last plot in one figure.

What's wrong with my script below?

__BEGIN__
in_fname <- paste("mydata.txt.",sep="")
out_fname <- paste("finalplot.png",sep="")

dat <- read.table(in_fname, comment.char = "!" , na.strings =
"null");
dat.pca <- prcomp(dat[,1:ncol(dat)], retx=TRUE, scores=TRUE)

trellis.device("png", color=TRUE)
png(out_fname)

# End figure expected to be 1 row 2 columns
par(mfrow = c(1,2))

# Two plots which I want to put into one PNG figure
xyplot(dat.pca$x[,1] ~ dat.pca$x[,2], xlab="First Component",
ylab="Second Component")
xyplot(dat.pca$x[,2] ~ dat.pca$x[,3], xlab="Second Component",
ylab="Third Component")

dev.off()

__END__

-- 
Gundala Viswanath



-- 
Gundala Viswanath