Olá Benilton, Como havia dito, não era o melhor computacional. Esta última versão é bem melhor. Valeu !
[]'s Márcio Nicolau Em 17 de março de 2011 08:57, Benilton Carvalho <[email protected]>escreveu: > Agora, que penso a respeito dessa funcao, ela tbm pode ser uma combinacao > de paste() e strwrap() > > f = function(txt, width=30) > paste(strwrap(txt, width=width), sep='', collapse='\n') > > titulo = 'titulo longo que eu quero quebrar e por num grafico' > f(titulo) > > b > > 2011/3/17 Fabio Mathias Corrêa <[email protected]> > >> >> >> Fábio Mathias Corrêa >> Departamento de Estatística >> Universidade Estadual de Santa Cruz >> >> >> >> Tel.: 73-3680-5076 >> Cel.: 73-9991-8155 >> >> >> ----- Mensagem encaminhada ---- >> *De:* Marcio Nicolau <[email protected]> >> *Para:* [email protected] >> *Enviadas:* Sábado, 25 de Outubro de 2008 19:47:08 >> *Assunto:* [R_STAT] Função para quebra de linha em título >> >> 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 <marcio.nicolau%40gmail.com> >> >> __._,_.___ >> Mensagens neste tópico >> <http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1bWdhMjI0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3MTM0MgR0cGNJZAM0NTY2>( >> 1) Responder (através da web) >> <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxdThtbms4BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3MTM0Mg--?act=reply&messageNum=4566>| >> Adicionar >> um novo tópico >> <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmM2c4Y2RiBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzEzNDI-> >> >> Mensagens<http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmNjd0YzdyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzEzNDI->| >> Arquivos<http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnbzdydDE5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTcxMzQy>| >> Fotos<http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmaGd2OWc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzEzNDI->| >> Links<http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnOWFlc2cwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTcxMzQy>| >> Banco >> de >> dados<http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkc3Q2M3ZxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTcxMzQy>| >> Enquetes<http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZjg2bzZuBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTcxMzQy> >> [image: Yahoo! >> Grupos]<http://br.groups.yahoo.com/;_ylc=X3oDMTJlYzdwMTgwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3MTM0Mg--> >> Alterar configurações via >> web<http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnZzd1bzRyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTcxMzQy>(Requer >> Yahoo! ID) >> Alterar configurações via e-mail: Alterar recebimento para lista diária >> de >> mensagens<[email protected]?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens>| >> Alterar >> formato para o >> tradicional<[email protected]?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional> >> Visite seu Grupo >> <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlNGVuZmZ0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3MTM0Mg-->| >> Termos >> de uso do Yahoo! Grupos <http://br.yahoo.com/info/utos.html> | Sair do >> grupo <[email protected]?subject=> >> Atividade nos últimos dias >> >> - 8 >> Novos >> usuários<http://br.groups.yahoo.com/group/R_STAT/members;_ylc=X3oDMTJnY2J2Yjk5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMjI0OTcxMzQy> >> >> Visite seu Grupo >> <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmbnJnNzBjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzEzNDI-> >> Yahoo! Mail >> >> Conecte-se ao >> mundo<http://us.lrd.yahoo.com/_ylc=X3oDMTJtdHA2bzd0BF9TAzk3NDkwNDM3BF9wAzEEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDbWFpbARzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=10ujd6ds6/**http%3A//mail.yahoo.com.br/> >> >> Proteção anti-spam >> >> Muito mais espaço >> Yahoo! Barra >> >> Instale >> grátis<http://us.lrd.yahoo.com/_ylc=X3oDMTJwa2YzNW91BF9TAzk3NDkwNDM3BF9wAzIEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDdG9vbGJhcgRzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=111ngvtas/**http%3A//br.toolbar.yahoo.com/> >> >> Buscar sites na web >> >> Checar seus e-mails . >> Yahoo! Grupos >> >> Crie seu próprio >> grupo<http://br.groups.yahoo.com/;_ylc=X3oDMTJwaDhjNHViBF9TAzk3NDkwNDM3BF9wAzMEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDZ3JvdXBzMgRzdGltZQMxMjI0OTcxMzQy> >> >> A melhor forma de comunicação >> >> . >> >> __,_._,___ >> >> >> >> _______________________________________________ >> R-br mailing list >> [email protected] >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> >> > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > >
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
