R help - Sep 2002 - one question about title

Dear,
       Thanks for your help. My question is the title can not completely show in
the drawing area when the title is too long.
So, I need to change the value of cex.main each time. Could you help me to
control the title display area?

Regrad,

ken 

 
-----Original Message-----
From: Patrick Connolly [mailto:p.connolly at hortresearch.co.nz]
Sent: Wednesday, September 11, 2002 4:41 AM
To: Ken Lee
Subject: Re: [R] one question about title


On Tue, 10-Sep-2002 at 02:47PM +0800, Ken Lee wrote:

|> Dear all,

|>        Can I have any method to predict the cex.main to put title
|> in the drawing area.  like : title(main=title1,cex.main=cex) ==>
|> cex=f(nchar(title1))

It's not clear to me just what your question is, but if my guess is
correct, it would be very simple to make an object, say

main.cex <- f(nchar(title1))
  then 
title(main = title1,cex.main = cexmain.)

If that's not what you need, be more specific and maybe we can help.

-- 
Patrick Connolly
HortResearch
Mt Albert
Auckland
New Zealand 
Ph: +64-9 815 4200 x 7188
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~
I have the world`s largest collection of seashells. I keep it on all
the beaches of the world ... Perhaps you`ve seen it.  ---Steven Wright 
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~


______________________________________________________
The contents of this e-mail are privileged and/or confidential to the
named recipient and are not to be used by any other person and/or
organisation. If you have received this e-mail in error, please notify 
the sender and delete all material pertaining to this e-mail.
______________________________________________________
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Ken Lee <ken_lee at tynesys.com> asked (I'm paraphrasing) how to set
cex.main
automatically so that his title will fit on the page.

Here's a solution that uses strwidth():

title.fit <- function(main, frac=.9, cex=par("cex.main"), ...) {
  while ((r <- strwidth(main, "f", cex)/frac) > 1.05) cex <-
cex / r
  title(main, cex.main=cex, ...)
}
-- 
                              -- David Brahm (brahm at alum.mit.edu)
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._