
Dear R users,
 
Thanks in advance.

I am Deb, Statistician at NSW Department of Commerce, Sydney.
 
I am using R 2.8.1 on Windows XP.
 
I like to save Trellis Plots on A3 size paper (Portrait and
Landscape).
 
Currently, I am using the following command to save a Trellis Plot in
pdf [This is an example code]:
 
pdf("D:/Analysis/test.pdf")
 
dataFile <- expand.grid(xo= c("x1", "x2", "x3"),
                        xc= c("c1", "c2", "c3", "c4", "c5", "c6"),
                        year= c("2007", "2008", "2009"),
                        quarter= c("Q1", "Q2", "Q3", "Q4"),
                        id= c(1,2,3))
dataFile <- dataFile[order(dataFile$xo, dataFile$xc, dataFile$year,
dataFile$quarter, dataFile$id), ]
dataFile$s <- runif(nrow(dataFile), 50, 100)
dataFile$time <- paste(as.character(dataFile$year),
as.character(dataFile$quarter), sep=":")
barchart(s ~ time| xc + xo, data = dataFile[dataFile$xo == 'x1', ],
         horizontal = FALSE,
         groups = id,
         layout = c(1, 6))

dev.off()
 
Once again, thank you very much for the time you have given.
 
I am looking forward for your reply.
 
Regards,
 
Debabrata Midya (Deb)
NSW Department of Commerce
Government Procurement Management
Level 11
McKell Building
2-24 Rawson Place
Sydney NSW 2000
Australia
 


******************************************************************************

This email message, including any attached files, is confidential and
intended solely for the use of the individual or entity to whom it is
addressed. 

The NSW Department of Commerce prohibits the right to publish, 
copy, distribute or disclose any information contained in this email, 
or its attachments, by any party other than the intended recipient. 
If you have received this email in error please notify the sender and
delete it from your system.

No employee or agent is authorised to conclude any binding 
agreement on behalf of the NSW Department of Commerce by email. The
views or opinions presented in this email are solely those of the author
and do not necessarily represent those of the Department, 
except where the sender expressly, and with authority, states them to be
the views of NSW Department of Commerce.  

The NSW Department of Commerce accepts no liability for any loss or
damage arising from the use of this email and recommends that the
recipient check this email and any attached files for the presence of
viruses. 

******************************************************************************

	[[alternative HTML version deleted]]


