comece do basico e tente

par(mfrow=c(1, 2))
plot(1, main="Titulo Normal")
plot(1, main="Titulo\nNormal")


b

2011/3/20 Mauro Sznelwar <sznelwar@uol.com.br>

Estava olhando vossa solução, e quando copiei e colei vi que só os três primeiros comandos funcionam, não vi diferença quando coloca o restante a partir do StrP.
.

Marcio, uma alternativa talvez seja:

nm <- c("Aaaaaa aaaaaaa aa", "Bbbbbb bbbbbb", "cccc")
y <- c(10,4,9)
barplot(y, names.arg = nm)
strP <- .5
nm[strwidth( nm) > strP] <- gsub("( \\w*$)", "\n\\1", nm[strwidth( nm) > strP])

2008/10/25 Marcio Nicolau <marcio.nicolau@ gmail.com>
Prezados,

A algum tempo, questionei na lista sobre a existência de uma função
para quebra de linha
automática para títulos de gráficos.

Após a sugestão do Benilton (função gsub), segue abaixo o código...
caso necessitem.


## Pre-Processa titulos

pretitulo <- function(orig, cut=55) {
   nparts = ceiling(nchar( orig) / cut)
   cuts = c(1,1:nparts * cut)
   spt =  strsplit(orig,"\\s")[[1]]
   cs = cumsum(nchar( spt))

   ids <- matrix(FALSE, nparts,length( nchar(spt) ))
   for(i in 2:length(cuts) ) {
       ids[i-1,] <- (cs >= cuts[i-1] & cs < cuts[i])
   }

   ch <- vector("character", nparts)
   for(i in 1:nparts) {
       ch[[i]] <- paste(spt[ids[ i,]],collapse = " ")
   }
   pretitulo <- paste(ch,collapse="\n")
}

Não é o melhor, computacionalmente falando, mas funciona :)

Abraços

Marcio Nicolau
marcio.nicolau@ gmail.com




------------ --------- --------- ------

Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
   http://br.groups. yahoo.com/ group/R_STAT/

<*> Para sair deste grupo, envie um e-mail para:
   R_STAT-unsubscribe@ yahoogrupos. com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
   http://br.yahoo. com/info/ utos.html





--
Henrique Dallazuanna
Curitiba-Paraná -Brasil
25° 25' 40" S 49° 16' 22" O
__._,_.___

__

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br