Tena koe Fabiane ?par
In particular, various cex. parameters. These can be used with plot (e.g., plot(x, y, cex.axis=1.2)) HTH .... Peter Alspach > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of Fabiane Silva > Sent: Wednesday, 13 April 2011 11:23 a.m. > To: r-help@r-project.org > Subject: [R] font and size times New Roman > > Hello > > I wonder how to change the font of > chart to Times New Roman and size 9. > > plot(c(0,100,20),c(0,600,50), xlab= 'Idade(meses)', ylab="Peso(kg)", > type = "n", axes=F) > > axis(1, pos=0, at=seq(0,100,20)) > axis(2, pos=0, at=seq(0,600,100)) > t<- seq(0,100,1) > TA=543.56*(1-0.8976*exp(-0.0522*t)) > NI=498.97*(1-0.9259*exp(-0.0494*t)) > RC=514.57*(1-0.9112*exp(-0.0499*t)) > TS=553.47*(1-0.9119*exp(-0.0535*t)) > > lines(t, TA, col='black',lty=1, lwd=4) > lines(t, NI, col="black", lty=2, lwd=4) > lines(t, RC, col='black',lty=3, lwd=4) > lines(t, TS, col='black',lty=4, lwd=4) > legend(40,200, legend = c("A=553,47 kg k=0,0535","A=543,56 kg > k=0,0522","A=514,57 kg k=0,0499","A=498,97 kg k=0,0494"), > col=c("black"), cex=0.8, lwd=4, lty=c(4,1,3,2)) > > Attached is the graphic I need to make these changes > > Thanks The contents of this e-mail are confidential and may be subject to legal privilege. If you are not the intended recipient you must not use, disseminate, distribute or reproduce all or any part of this e-mail or attachments. If you have received this e-mail in error, please notify the sender and delete all material pertaining to this e-mail. Any opinion or views expressed in this e-mail are those of the individual sender and may not represent those of The New Zealand Institute for Plant and Food Research Limited. ______________________________________________ R-help@r-project.org 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.
