R help - Jun 2007 - : create a PDF file (text (print list) and grafics)

Dear helpers,

I need help to create a PDF file like the example

 -----------------------------------
 |	      Title				|
 -----------------------------------
 |						|
 |		Text (print a list)	|		   
 |						|
 -----------------------------------
 |			|		      |
 |			|		      |
 |    image		|     image	      |
 |			|		      |
 |			|		      |
 -----------------------------------


pdf(paste(getwd(),"/Output/Controlo_Pesos",regiao,trimestre,substr(ano,3,4),

		".pdf",sep="),height=13.7, paper="special")
par(mfrow=c(1,2), oma=c(0,0,3,0),cex=0.5)

#Text field (????????????)
#print(qual_pesos)# is a list

#Image
hist(controlo$quope,axes=T,plot=T,col="gray",xlab"Quope",main="Histograma",lwd=2)
boxplot(controlo$quope,col="bisque",lty=3,medlty=1,medlwd=2.5,main"Boxplot")
mtext(regiao,cex=1.5,col="blue",adj=0.5,side=3,outer=TRUE) 
dev.off()



There is other way to do the same more easily
Thanks in advance for helping me.
Best regards.

Atenciosamente,
Ana Patricia Martins
-------------------------------------------
Serviço Métodos Estatísticos
Departamento de Metodologia Estatística
INE - Portugal
Telef:  218 426 100 - Ext: 3210
E-mail: ana.pmartins@ine.pt <mailto:ana.pmartins@ine.pt> 


	[[alternative HTML version deleted]]

Hi Ana,

There are two ways in which I imagine this can be done:
(1) create a layout [using layout()] and printing the text on a blank plot;
(2) using Sweave.

## === Method 1 example... ==
pdf()
layout(matrix(c(1,1,2,3),ncol=2,byrow=TRUE),widths=c(1,1),heights=c(3,2))
par(mar=c(0,0,5,0))
plot.new(); plot.window(xlim=c(0,1),ylim=c(0,1))
title("Title",cex.main=1.5)
text(0.4,0.5,adj=c(0,0),lab"> print(myList)
$a
[1] 1

$b
[1] 2")
par(mar=c(5,4,1,1))
boxplot(1:10)
hist(1:10)
dev.off()

## (there must be a more elegant way than pasting the output
## of print(myList) as a character string in text() but I can't
## think of it at the moment...

## === Method 2 (warning: I am not too familiar with Sweave
## but I understand that this is how it *should* work; this
## Sweave document will create a '.tex' file which you can then
## compile with latex - this site was helpful:
## http://www.stat.umn.edu/~charlie/Sweave/)  ==
\documentclass[a4paper]{article}
\title{Sweave Document}
\author{}
\date{}
\begin{document}
\maketitle

Text field here

<<echo=FALSE>>## computations to build 'myList' here (but
not for printing)
## such as
myList <- list(a=1,b=2)
@
<<reg>>## this is for output
print(myList)
@ 

\begin{center}
<<fig =TRUE , echo =FALSE >>par(mfrow=c(1,2),
oma=c(0,0,3,0),cex=0.5)
#Image
hist(controlo$quope,axes=T,plot=T,col="gray",xlab"Quope",main="Histograma",lwd=2)
boxplot(controlo$quope,col="bisque",lty=3,medlty=1,medlwd=2.5,main"Boxplot")
mtext(regiao,cex=1.5,col="blue",adj=0.5,side=3,outer=TRUE) 
@
\end{center}
\end{document}

##



--- Ana Patricia Martins <ana.pmartins at ine.pt> wrote:
> Dear helpers,
> 
> I need help to create a PDF file like the example
> 
>  -----------------------------------
>  |	      Title				|
>  -----------------------------------
>  |						|
>  |		Text (print a list)	|		   
>  |						|
>  -----------------------------------
>  |			|		      |
>  |			|		      |
>  |    image		|     image	      |
>  |			|		      |
>  |			|		      |
>  -----------------------------------
> 
> 
>
pdf(paste(getwd(),"/Output/Controlo_Pesos",regiao,trimestre,substr(ano,3,4),
> 
> 		".pdf",sep="),height=13.7, paper="special")
> par(mfrow=c(1,2), oma=c(0,0,3,0),cex=0.5)
> 
> #Text field (????????????)
> #print(qual_pesos)# is a list
> 
> #Image
> hist(controlo$quope,axes=T,plot=T,col="gray",xlab>
"Quope",main="Histograma",lwd=2)
>
boxplot(controlo$quope,col="bisque",lty=3,medlty=1,medlwd=2.5,main>
"Boxplot")
> mtext(regiao,cex=1.5,col="blue",adj=0.5,side=3,outer=TRUE) 
> dev.off()
> 
> 
> 
> There is other way to do the same more easily
> Thanks in advance for helping me.
> Best regards.
> 
> Atenciosamente,
> Ana Patricia Martins
> -------------------------------------------
> Servi?o M?todos Estat?sticos
> Departamento de Metodologia Estat?stica
> INE - Portugal
> Telef:  218 426 100 - Ext: 3210
> E-mail: ana.pmartins at ine.pt <mailto:ana.pmartins at ine.pt> 
> 
> 
> 	[[alternative HTML version deleted]]
> 
> > ______________________________________________
> R-help at stat.math.ethz.ch 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.
>