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

[Fabio Mathias Corrêa]

----- Mensagem encaminhada ----
De: Henrique Dallazuanna <wwwhsd em gmail.com>
Para: R_STAT em yahoogrupos.com.br
Enviadas: Sábado, 25 de Outubro de 2008 20:54:23
Assunto: Re: [R_STAT] Função para quebra de linha em título


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  
Atividade nos últimos dias
	*  8
Novos usuáriosVisite seu Grupo  
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
. 
__,_._,___    


      
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110317/0f619112/attachment-0001.html>