Olá Benilton,<br><br>Como havia dito, não era o melhor computacional. Esta última versão é bem melhor. Valeu !<br><br>[]'s <br><br clear="all">Márcio Nicolau<br>
<br><br><div class="gmail_quote">Em 17 de março de 2011 08:57, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Agora, que penso a respeito dessa funcao, ela tbm pode ser uma combinacao de paste() e strwrap()<div><br></div><div>f = function(txt, width=30)</div><div>paste(strwrap(txt, width=width), sep='', collapse='\n')</div>
<div><br></div><div>titulo = 'titulo longo que eu quero quebrar e por num grafico'</div><div>f(titulo)</div><div><br></div><div>b<br><br><div class="gmail_quote"><div><div></div><div class="h5">2011/3/17 Fabio Mathias Corrêa <span dir="ltr"><<a href="mailto:fabio.ufla@yahoo.com.br" target="_blank">fabio.ufla@yahoo.com.br</a>></span><br>
</div></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div><div></div><div class="h5"><div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">
<br><div> </div> Fábio Mathias Corrêa<br>
Departamento de Estatística<br> Universidade Estadual de Santa Cruz<br><br><br><br><div>Tel.: 73-3680-5076<br>Cel.: 73-9991-8155<div><br></div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">
<br><div style="padding-left: 5px; margin: 5px 0px 5px 5px; border-left: 2px solid rgb(16, 16, 255); font-family: times new roman,new york,times,serif; font-size: 12pt;"><font face="Tahoma" size="2">----- Mensagem encaminhada ----<br>
<b><span style="font-weight: bold;">De:</span></b> Marcio Nicolau <<a href="mailto:marcio.nicolau@gmail.com" target="_blank">marcio.nicolau@gmail.com</a>><br><b><span style="font-weight: bold;">Para:</span></b> <a href="mailto:R_STAT@yahoogrupos.com.br" target="_blank">R_STAT@yahoogrupos.com.br</a><br>
<b><span style="font-weight: bold;">Enviadas:</span></b> Sábado, 25 de Outubro de 2008 19:47:08<br><b><span style="font-weight: bold;">Assunto:</span></b> [R_STAT] Função para quebra de linha em título<br></font><br>
<div style="width: 655px;">
<div style="width: 470px; margin: 0pt; padding: 0pt 25px 0pt 0pt; float: left;">
<div>
<p>Prezados,<br>
<br>
A algum tempo, questionei na lista sobre a existência de uma função <br>
para quebra de linha<br>
automática para títulos de gráficos.<br>
<br>
Após a sugestão do Benilton (função gsub), segue abaixo o código... <br>
caso necessitem.<br>
<br>
## Pre-Processa titulos<br>
<br>
pretitulo <- function(orig, cut=55) {<br>
nparts = ceiling(nchar( orig) / cut)<br>
cuts = c(1,1:nparts * cut)<br>
spt = strsplit(orig, "\\s")[[1] ]<br>
cs = cumsum(nchar( spt))<br>
<br>
ids <- matrix(FALSE, nparts,length( nchar(spt) ))<br>
for(i in 2:length(cuts) ) {<br>
ids[i-1,] <- (cs >= cuts[i-1] & cs < cuts[i])<br>
}<br>
<br>
ch <- vector("character" , nparts)<br>
for(i in 1:nparts) {<br>
ch[[i]] <- paste(spt[ids[ i,]],collapse = " ")<br>
}<br>
pretitulo <- paste(ch,collapse= "\n")<br>
}<br>
<br>
Não é o melhor, computacionalmente falando, mas funciona :)<br>
<br>
Abraços<br>
<br>
Marcio Nicolau<br>
<a rel="nofollow" href="mailto:marcio.nicolau%40gmail.com" target="_blank">marcio.nicolau@ gmail.com</a><br>
<br>
</p>
</div>
<span style="color: white;">__._,_.___</span>
<div>
<span>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1bWdhMjI0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3MTM0MgR0cGNJZAM0NTY2" target="_blank">
Mensagens neste tópico </a> (<span>1</span>)
</span>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxdThtbms4BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3MTM0Mg--?act=reply&messageNum=4566" target="_blank">
<span>
Responder </span> (através da web)
</a> |
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmM2c4Y2RiBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzEzNDI-" target="_blank">
Adicionar um novo tópico </a>
</div>
<div>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmNjd0YzdyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzEzNDI-" target="_blank">Mensagens</a>
| <a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnbzdydDE5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTcxMzQy" target="_blank">Arquivos</a>
| <a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmaGd2OWc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzEzNDI-" target="_blank">Fotos</a>
| <a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnOWFlc2cwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTcxMzQy" target="_blank">Links</a>
| <a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkc3Q2M3ZxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTcxMzQy" target="_blank">Banco de dados</a>
| <a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZjg2bzZuBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTcxMzQy" target="_blank">Enquetes</a>
</div>
<div>
</div>
<div>
<a rel="nofollow" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJlYzdwMTgwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3MTM0Mg--" target="_blank">
<img src="" alt="Yahoo! Grupos" height="19" width="108" border="0"></a> <br>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnZzd1bzRyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTcxMzQy" target="_blank">Alterar configurações via web</a> (Requer Yahoo! ID) <br>
Alterar configurações via e-mail: <a rel="nofollow" href="mailto:R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens" target="_blank">Alterar recebimento para lista diária de mensagens</a> | <a rel="nofollow" href="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional" target="_blank">Alterar formato para o tradicional</a> <br>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlNGVuZmZ0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3MTM0Mg--" target="_blank">
Visite seu Grupo
</a> |
<a rel="nofollow" href="http://br.yahoo.com/info/utos.html" target="_blank">
Termos de uso do Yahoo! Grupos </a> |
<a rel="nofollow" href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=" target="_blank">
Sair do grupo </a>
</div>
</div>
<div style="width: 160px; float: right; clear: none; margin: 0pt 0pt 25px; background: none repeat scroll 0% 0% white;">
<div>
</div>
<div>
<div>Atividade nos últimos dias</div>
<ul style="list-style-type: none; padding: 0pt; margin: 2px 0pt;">
<li style="clear: both;">
<div style="float: right;"><span> </span>8</div>
<div><a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT/members;_ylc=X3oDMTJnY2J2Yjk5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMjI0OTcxMzQy" target="_blank">Novos usuários</a></div>
</li>
</ul>
<a rel="nofollow" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmbnJnNzBjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzEzNDI-" target="_blank">
Visite seu Grupo </a>
</div>
<div>
<div>
<div>Yahoo! Mail</div>
<p><a rel="nofollow" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJtdHA2bzd0BF9TAzk3NDkwNDM3BF9wAzEEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDbWFpbARzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=10ujd6ds6/**http%3A//mail.yahoo.com.br/" target="_blank">Conecte-se ao mundo</a></p>
<p>Proteção anti-spam</p>
<p>Muito mais espaço</p>
</div>
<div>
<div>Yahoo! Barra</div>
<p><a rel="nofollow" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJwa2YzNW91BF9TAzk3NDkwNDM3BF9wAzIEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDdG9vbGJhcgRzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=111ngvtas/**http%3A//br.toolbar.yahoo.com/" target="_blank">Instale grátis</a></p>
<p>Buscar sites na web</p>
<p>Checar seus e-mails .</p>
</div>
<div>
<div>Yahoo! Grupos</div>
<p><a rel="nofollow" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJwaDhjNHViBF9TAzk3NDkwNDM3BF9wAzMEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDZ3JvdXBzMgRzdGltZQMxMjI0OTcxMzQy" target="_blank">Crie seu próprio grupo</a></p>
<p>A melhor forma de comunicação</p>
<p></p>
</div>
</div>
</div>
<div style="clear: both; color: rgb(255, 255, 255); font-size: 1px;">.</div>
</div> <img src="" height="1" width="1"> <br>
<span style="color: white;">__,_._,___</span>
</div></div></div>
</div><br>
</div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br>