Função para quebra de linha em título
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 <marcio.nicolau@gmail.com> Para: R_STAT@yahoogrupos.com.br 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 __._,_.___ Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados | Enquetes Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 8 Novos usuáriosVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_._,___
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 <fabio.ufla@yahoo.com.br>
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 <marcio.nicolau@gmail.com> *Para:* R_STAT@yahoogrupos.com.br *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<R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens>| Alterar formato para o tradicional<R_STAT-traditional@yahoogrupos.com.br?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 <R_STAT-unsubscribe@yahoogrupos.com.br?subject=> Atividade nos últimos dias
Visite seu Grupo <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmbnJnNzBjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzEzNDI-> Yahoo! Mail
Proteção anti-spam
Muito mais espaço Yahoo! Barra
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 R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
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 <beniltoncarvalho@gmail.com>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 <fabio.ufla@yahoo.com.br>
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 <marcio.nicolau@gmail.com> *Para:* R_STAT@yahoogrupos.com.br *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<R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens>| Alterar formato para o tradicional<R_STAT-traditional@yahoogrupos.com.br?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 <R_STAT-unsubscribe@yahoogrupos.com.br?subject=> Atividade nos últimos dias
Visite seu Grupo <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmbnJnNzBjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzEzNDI-> Yahoo! Mail
Proteção anti-spam
Muito mais espaço Yahoo! Barra
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 R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Copiei e colei o que passou e veja o resultado: "titulo longo que eu quero\nquebrar e por num grafico" Nâo houve quebra! 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)
Use dfoyhgosfdghlsfdhbgfdo \n greohgodsvsd Edson Lira Estatístico Manaus-Amazonas --- Em dom, 20/3/11, Mauro Sznelwar <sznelwar@uol.com.br> escreveu: De: Mauro Sznelwar <sznelwar@uol.com.br> Assunto: Re: [R-br] Função para quebra de linha em título Para: "Benilton Carvalho" <beniltoncarvalho@gmail.com> Cc: r-br@listas.c3sl.ufpr.br Data: Domingo, 20 de Março de 2011, 11:51 Copiei e colei o que passou e veja o resultado: "titulo longo que eu quero\nquebrar e por num grafico" Nâo houve quebra! 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) -----Anexo incorporado----- _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Continua não funcionando, veja: "dfoyhgosfdghlsfdhbgfdo\ngreohgodsvsd" Use dfoyhgosfdghlsfdhbgfdo \n greohgodsvsd Edson Lira Estatístico Manaus-Amazonas Copiei e colei o que passou e veja o resultado: "titulo longo que eu quero\nquebrar e por num grafico" Nâo houve quebra! 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)
cat("dfoyhgosfdghlsfdhbgfdo\ngreohgodsvsd") 2011/3/21 Mauro Sznelwar <sznelwar@uol.com.br>
Continua não funcionando, veja: "dfoyhgosfdghlsfdhbgfdo\ngreohgodsvsd"
Use dfoyhgosfdghlsfdhbgfdo \n greohgodsvsd
Edson Lira Estatístico Manaus-Amazonas
Copiei e colei o que passou e veja o resultado: "titulo longo que eu quero\nquebrar e por num grafico" Nâo houve quebra! 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)
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
participantes (6)
-
Benilton Carvalho -
Edson Lira -
Fabio Mathias Corrêa -
Henrique Dallazuanna -
Marcio Nicolau -
Mauro Sznelwar