<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE type=text/css>DIV {
MARGIN: 0px
}
</STYLE>
<META content="MSHTML 6.00.2900.3429" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<DIV align=justify><BR><FONT face=Arial color=#0000ff>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.<BR></DIV></FONT><!--~-|**|PrettyHtmlStartT|**|-~-->
<DIV>
<DIV id=ygrp-mlmsg style="WIDTH: 655px">
<DIV
style="CLEAR: both; FONT-SIZE: 1px; COLOR: rgb(255,255,255)">.</DIV></DIV></DIV>
<DIV><IMG height=1
src="http://geo.yahoo.com/serv?s=97490437/grpId=11923275/grpspId=2137111605/msgId=4568/stime=1224975285/nc1=1/nc2=2/nc3=3"
width=1> </DIV>
<DIV>
<DIV id=ygrp-msg
style="PADDING-RIGHT: 25px; PADDING-LEFT: 0pt; FLOAT: left; PADDING-BOTTOM: 0pt; MARGIN: 0pt; WIDTH: 470px; PADDING-TOP: 0pt"><!--~-|**|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
href="mailto:marcio.nicolau@gmail.com" target=_blank rel=nofollow
ymailto="mailto:marcio.nicolau@gmail.com">marcio.nicolau@
gmail.com</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="BORDER-LEFT: rgb(204,204,204) 1px solid">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 href="mailto:marcio.nicolau@gmail.com" target=_blank
rel=nofollow ymailto="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
href="http://br.groups.yahoo.com/group/R_STAT/" target=_blank
rel=nofollow>http://br.groups. yahoo.com/ group/R_STAT/</A><BR><BR><*>
Para sair deste grupo, envie um e-mail para:<BR> <A
href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br" target=_blank rel=nofollow
ymailto="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 href="http://br.yahoo.com/info/utos.html"
target=_blank rel=nofollow>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
href="http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1ZTNtOHM2BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3NTI4NQR0cGNJZAM0NTY2"
target=_blank rel=nofollow>Mensagens neste tópico </A>(<SPAN class=bld>2</SPAN>)
</SPAN><A
href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxNTZ0dW9vBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3NTI4NQ--?act=reply&messageNum=4568"
target=_blank rel=nofollow><SPAN class=bld>Responder </SPAN>(através da web)
</A>| <A class=bld
href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmdDI5dmExBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzUyODU-"
target=_blank rel=nofollow>Adicionar um novo tópico </A></DIV>
<DIV id=ygrp-vitnav><A
href="http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmajQxb2htBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzUyODU-"
target=_blank rel=nofollow>Mensagens</A> | <A
href="http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnOW5oM3JnBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTc1Mjg1"
target=_blank rel=nofollow>Arquivos</A> | <A
href="http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmcXJmaGc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzUyODU-"
target=_blank rel=nofollow>Fotos</A> | <A
href="http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnbmMwcTgxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTc1Mjg1"
target=_blank rel=nofollow>Links</A> | <A
href="http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkaTMzN2ppBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTc1Mjg1"
target=_blank rel=nofollow>Banco de dados</A> | <A
href="http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZTgzN2IwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTc1Mjg1"
target=_blank rel=nofollow>Enquetes</A> </DIV>
<DIV id=ygrp-grft></DIV>
<DIV id=ygrp-ft><A
href="http://br.groups.yahoo.com/;_ylc=X3oDMTJlOGxubWpwBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3NTI4NQ--"
target=_blank rel=nofollow><IMG height=19 alt="Yahoo! Grupos"
src="http://us.i1.yimg.com/us.yimg.com/i/br/groups/groups-brazil_1.gif"
width=108 border=0></A> <BR><A
href="http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnbzBoY29hBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTc1Mjg1"
target=_blank rel=nofollow>Alterar configurações via web</A> (Requer Yahoo! ID)
<BR>Alterar configurações via e-mail: <A
href="mailto:R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens"
target=_blank rel=nofollow
ymailto="mailto:R_STAT-digest@yahoogrupos.com.br?subject= Recebimento de e-mail: Lista de mensagens">Alterar
recebimento para lista diária de mensagens</A> | <A
href="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional"
target=_blank rel=nofollow
ymailto="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar formato de distribuição: Tradicional">Alterar
formato para o tradicional</A> <BR><A
href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlbWJ2bXJnBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3NTI4NQ--"
target=_blank rel=nofollow>Visite seu Grupo </A>| <A
href="http://br.yahoo.com/info/utos.html" target=_blank rel=nofollow>Termos de
uso do Yahoo! Grupos </A>| <A
href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=" target=_blank
rel=nofollow
ymailto="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=">Sair do grupo
</A></DIV></DIV></DIV>
<DIV><BR><SPAN style="COLOR: white">__</SPAN><FONT face=Arial
size=2></FONT></DIV></BODY></HTML>