O objeto nm se altera:
2011/3/20 Mauro Sznelwar <[email protected]> > > 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<[email protected]> > > > >> 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 <[email protected]> >> >> >> >> >> ------------ --------- --------- ------ >> >> Links do Yahoo! Grupos >> >> <*> Para visitar o site do seu grupo na web, acesse: >> http://br.groups. yahoo.com/ >> group/R_STAT/<http://br.groups.yahoo.com/group/R_STAT/> >> >> <*> Para sair deste grupo, envie um e-mail para: >> R_STAT-unsubscribe@ yahoogrupos. >> com.br<[email protected]> >> >> <*> O uso que você faz do Yahoo! Grupos está sujeito aos: >> http://br.yahoo. com/info/ utos.html<http://br.yahoo.com/info/utos.html> >> >> >> > > > -- > Henrique Dallazuanna > Curitiba-Paraná -Brasil > 25° 25' 40" S 49° 16' 22" O > __._,_.___ > Mensagens neste tópico > <http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1ZTNtOHM2BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3NTI4NQR0cGNJZAM0NTY2> > (2) Responder (através da web) > <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxNTZ0dW9vBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY4BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3NTI4NQ--?act=reply&messageNum=4568>| > Adicionar um novo tópico > <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmdDI5dmExBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzUyODU-> > Mensagens<http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmajQxb2htBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzUyODU->| > Arquivos<http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnOW5oM3JnBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTc1Mjg1>| > Fotos<http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmcXJmaGc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzUyODU->| > Links<http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnbmMwcTgxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTc1Mjg1>| > Banco > de > dados<http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkaTMzN2ppBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTc1Mjg1>| > Enquetes<http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZTgzN2IwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTc1Mjg1> > [image: Yahoo! > Grupos]<http://br.groups.yahoo.com/;_ylc=X3oDMTJlOGxubWpwBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3NTI4NQ--> > Alterar configurações via > web<http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnbzBoY29hBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTc1Mjg1>(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=X3oDMTJlbWJ2bXJnBF9TAzk3NDkwNDM1BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3NTI4NQ-->| > Termos de uso do Yahoo! Grupos <http://br.yahoo.com/info/utos.html>| Sair > do grupo <[email protected]?subject=> > > __ > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > > -- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
