[18645] in s-news-athena
[S] Graphsheet Header
daemon@ATHENA.MIT.EDU (=?iso-8859-1?Q?Jos=E9?= Ailton Ale)
Fri Jul 16 09:38:20 1999
Message-Id: <378F34B1.B3F16E48@inep.gov.br>
Date: Fri, 16 Jul 1999 10:33:37 -0300
From: =?iso-8859-1?Q?Jos=E9?= Ailton Alencar andrade <andrade@inep.gov.br>
Mime-Version: 1.0
To: s-plus discussion <s-news@wubios.wustl.edu>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello srs
Is there any way of put as default a header on the top of
graphicsheet?
ps: I am creating 16 plots in a same graphsheet using the lapply
procedure:
lapply(z, function(t = z)
{
par(oma = c(2, 2, 2, 2))
x <- t$breaks
y <- t$counts
conceito <- t$conceito
nome <- t$nome
y <- y * 100
y[length(y) + 1] <- 0
plot(x, y, main = paste("Inst.", nome, " - Conceito",
conceito), ylab = "Percentual", xlab = "Nota", lwd = 3, las = 2,
mkh = 0.03, pch = 16, type =
"h", mgp = c(3, 1, 0))
mtext(paste("Distribui\347\343o de Notas por Institui\347\343o
- Enc-98", outer = T, cex = 1.3
))})
bye.
-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu. To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message: unsubscribe s-news
