[R-br] Enc: [r-br] Função para quebra de linha em título

[Mauro Sznelwar]

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

__._,_.___ 
Mensagens neste tópico (2) Responder (através da web) | Adicionar um novo tópico 
Mensagens | Arquivos | Fotos | Links | Banco de dados | Enquetes 
 
Alterar configurações via web (Requer Yahoo! ID) 
Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional 
Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo 
__
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110320/766d1f57/attachment.html>