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 __