[R] margin text mtext

Christian Hoffmann christian.hoffmann at wsl.ch
Fri Jun 8 11:57:15 CEST 2001


Hi all,

Fiddling around with "mar" and "mtext" I got stuck:

plot.pcaX <- function(tit,lab) {
  on.exit(par(oldpar <- par(oma=c(4, 2, 4, 2), mar = c(4, 4, 2, 1)))) # ??
  split.screen(figs=c(3,3))
  for (i in 1:9) {screen(i);  plot(rnorm(100),rnorm(100)) }
  mtext(tit, side = 3, line = 1, outer = TRUE, cex = 1.5, adj = 0.5)
  mtext(paste(lab,", ", date()),side = 1,line=0,outer=TRUE,cex=0.5,adj=1)
  close.screen(all=T)
}

plot.pcaX("test","test.ps")

The plots are arranged without any margins, and "test" and "test.ps" will
not be printed on the plot.

 >uname -a
SunOS fluke 5.7 Generic_106541-12 sun4d sparc SUNW,SPARCserver-1000
R-1.2.3

Thanks for hints
--christian


Dr.sc.math.Christian W. Hoffmann
Mathematics and Statistical Computing
Landscape Modeling and Web Applications
Swiss Federal Research Institute WSL 
Zuercherstrasse 111
CH-8903 Birmensdorf, Switzerland
phone: ++41-1-739 22 77    fax: ++41-1-739 22 15
e-mail: christian.hoffmann_at_wsl.ch__prevent_spamming
www: http://www.wsl.ch/staff/christian.hoffmann/

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._



More information about the R-help mailing list