<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><div><br><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 size="2" face="Tahoma">----- Mensagem encaminhada ----<br><b><span style="font-weight: bold;">De:</span></b> Henrique Dallazuanna <wwwhsd@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> R_STAT@yahoogrupos.com.br<br><b><span style="font-weight: bold;">Enviadas:</span></b> Sábado, 25 de Outubro de 2008 20:54:23<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [R_STAT] Função para quebra de linha em título<br></font><br>





<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="width: 655px;">
<div id="ygrp-msg" style="width: 470px; margin: 0pt; padding: 0pt 25px 0pt 0pt; float: left;">
<!--~-|**|PrettyHtmlEndT|**|-~-->

    <div id="ygrp-text">
            <p>Marcio, uma alternativa talvez seja:<br><br>nm <- c("Aaaaaa aaaaaaa aa", "Bbbbbb bbbbbb", "cccc")<br>y <- c(10,4,9)<br>barplot(y, names.arg = nm)<br>strP <- .5<br>nm[strwidth( nm) > strP] <- gsub("( \\w*$)", "\n\\1", nm[strwidth( nm) > strP])<br>
<br></p><div class="gmail_quote">2008/10/25 Marcio Nicolau <span dir="ltr"><<a rel="nofollow" ymailto="mailto:marcio.nicolau@gmail.com" target="_blank" href="mailto:marcio.nicolau@gmail.com">marcio.nicolau@ gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204);">
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>
<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" ymailto="mailto:marcio.nicolau@gmail.com" target="_blank" href="mailto:marcio.nicolau@gmail.com">marcio.nicolau@ gmail.com</a><br>
<br>
<br>
<br>
<br>
------------ --------- --------- ------<br>
<br>
Links do Yahoo! Grupos<br>
<br>
<*> Para visitar o site do seu grupo na web, acesse:<br>
    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/">http://br.groups. yahoo.com/ group/R_STAT/</a><br>
<br>
<*> Para sair deste grupo, envie um e-mail para:<br>
    <a rel="nofollow" ymailto="mailto:R_STAT-unsubscribe@yahoogrupos.com.br" target="_blank" href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br">R_STAT-unsubscribe@ yahoogrupos. com.br</a><br>
<br>
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:<br>
    <a rel="nofollow" target="_blank" href="http://br.yahoo.com/info/utos.html">http://br.yahoo. com/info/ utos.html</a><br>
<br>
<br>
</blockquote></div><br><br clear="all"><br>-- <br>Henrique Dallazuanna<br>Curitiba-Paraná -Brasil<br>25° 25' 40" S 49° 16' 22" O<br>

    </div>  

<!--~-|**|PrettyHtmlStart|**|-~-->    
    <span style="color: white;">__._,_.___</span>
    
    <div id="ygrp-actbar">
              <span class="left">
          <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1ZTNtOHM2BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3NTI4NQR0cGNJZAM0NTY2">
            Mensagens neste tópico          </a> (<span class="bld">2</span>)
        </span>
        <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxNTZ0dW9vBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3NTI4NQ--?act=reply&messageNum=4568">
          <span class="bld">
            Responder          </span> (através da web)
        </a>  | 
        <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmdDI5dmExBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzUyODU-" class="bld">
          Adicionar um novo tópico        </a>
          </div> 
    
    
    <div id="ygrp-vitnav">
                <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmajQxb2htBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzUyODU-">Mensagens</a>  
            |    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnOW5oM3JnBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTc1Mjg1">Arquivos</a>  
            |    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmcXJmaGc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzUyODU-">Fotos</a>  
            |    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnbmMwcTgxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTc1Mjg1">Links</a>  
            |    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkaTMzN2ppBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTc1Mjg1">Banco de dados</a>  
            |    <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZTgzN2IwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTc1Mjg1">Enquetes</a>  
        
        
    </div>  
    

                <div id="ygrp-grft">
              </div>
    
    
    
    <div id="ygrp-ft">
      <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJlOGxubWpwBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3NTI4NQ--">
      <img src="http://us.i1.yimg.com/us.yimg.com/i/br/groups/groups-brazil_1.gif" alt="Yahoo! Grupos" height="19" width="108" border="0"></a> <br>
      <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnbzBoY29hBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTc1Mjg1">Alterar configurações via web</a> (Requer Yahoo! ID) <br>
      Alterar configurações via e-mail: <a rel="nofollow" ymailto="mailto:R_STAT-digest@yahoogrupos.com.br?subject= Recebimento de e-mail: Lista de mensagens" target="_blank" href="mailto:R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens">Alterar recebimento para lista diária de mensagens</a> | <a rel="nofollow" ymailto="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar formato de distribuição: Tradicional" target="_blank" href="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional">Alterar formato para o tradicional</a> <br>

      <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlbWJ2bXJnBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3NTI4NQ--">
        Visite seu Grupo 
      </a> |
      <a rel="nofollow" target="_blank" href="http://br.yahoo.com/info/utos.html">
        Termos de uso do Yahoo! Grupos      </a> |
      <a rel="nofollow" ymailto="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=" target="_blank" href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=">
        Sair do grupo      </a> 
    </div>     
  </div> 

  
  
  
  <div id="ygrp-sponsor" style="width: 160px; float: right; clear: none; margin: 0pt 0pt 25px; background: none repeat scroll 0% 0% white;">
    
    

<div id="ygrp-reco">
     </div>


            
            <div id="ygrp-vital">
                        <div id="vithd">Atividade nos últimos dias</div>
                <ul style="list-style-type: none; padding: 0pt; margin: 2px 0pt;">
                        <li style="clear: both;">
      <div class="ct" style="float: right;"><span style="display: none;"> </span>8</div>
      <div class="cat"><a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/members;_ylc=X3oDMTJncWtnOWVrBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMjI0OTc1Mjg1">Novos usuários</a></div>
    </li>
  
                    
                    
                    
                    
                    
                </ul>
                      <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmYnIybWU0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzUyODU-">
                Visite seu Grupo              </a>
            </div> 
                              
            
                          <div id="nc">
              <div class="ad">
                        <div id="hd1">Yahoo! Mail</div>
  <p><a rel="nofollow" target="_blank" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJtc2xjMmprBF9TAzk3NDkwNDM3BF9wAzEEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDbWFpbARzdGltZQMxMjI0OTc1Mjg1;_ylg=1/SIG=10ujd6ds6/**http%3A//mail.yahoo.com.br/">Conecte-se ao mundo</a></p>
  <p>Proteção anti-spam</p>
  <p>Muito mais espaço</p>
                  </div>
                    <div class="ad">
                        <div id="hd1">Yahoo! Barra</div>
  <p><a rel="nofollow" target="_blank" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJwOGlvM2piBF9TAzk3NDkwNDM3BF9wAzIEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDdG9vbGJhcgRzdGltZQMxMjI0OTc1Mjg1;_ylg=1/SIG=111ngvtas/**http%3A//br.toolbar.yahoo.com/">Instale grátis</a></p>
  <p>Buscar sites na web</p>
  <p>Checar seus e-mails .</p>
                  </div>
                    <div class="ad">
                        <div id="hd1">Yahoo! Grupos</div>
  <p><a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJwZGlxNTE4BF9TAzk3NDkwNDM3BF9wAzMEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDZ3JvdXBzMgRzdGltZQMxMjI0OTc1Mjg1">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="http://geo.yahoo.com/serv?s=97490437/grpId=11923275/grpspId=2137111605/msgId=4568/stime=1224975285/nc1=1/nc2=2/nc3=3" height="1" width="1"> <br>
        
        <span style="color: white;">__,_._,___</span>
        <!--~-|**|PrettyHtmlEnd|**|-~-->
        <!--~-|**|PrettyHtmlStart|**|-~-->
        
<style type="text/css">
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
</style>

<style type="text/css">
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
</style>

        <style type="text/css">
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}

#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}

#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}

#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}

#ygrp-vital a:hover{
text-decoration:underline;}

#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
</style>
        <!--~-|**|PrettyHtmlEnd|**|-~-->
        </div></div></div>
</div><br>



       </body></html>