[Dúvida] Como pegar uma substring do fim para o inicio
Pessoal como pegar extrair uma substring que comece a contar do final da string? Por exemplo pegar os 4 ultimos caracteres da string. Pedro
x = c('balao', 'azul', 'ceu', 'carro') n = nchar(x) substr(x, n-3, n)
Veja se algo assim ajuda a resolver: texto <- "paralelepipedo" substr(texto, nchar(texto) - 3, nchar(texto)) Abs. Em 2 de agosto de 2011 10:43, Pedro Rafael <pedro.rafael.marinho@gmail.com>escreveu:
Pessoal como pegar extrair uma substring que comece a contar do final da string? Por exemplo pegar os 4 ultimos caracteres da string.
Pedro
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Marcos F. Silva http://sites.google.com/site/marcosfs2006
ou ainda, x <- c("lattice","nlme","contrast","plyr","reshape","latticeExtra","multcomp","aod") gsub("^.*(.{4})$","\\1", x) À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
Um comentario a parte, que pode ser ignorado: x <- c("lattice","nlme","contrast","plyr","reshape","latticeExtra","multcomp","aod" ) x <- rep(x, 1e6) t0 <- system.time(r0 <- gsub("^.*(.{4})$","\\1", x)) t1 <- system.time({n <- nchar(x); r1 <- substr(x, n-3, n)}) identical(r0, r1) t0[3]/t1[3]
Benilton, Eu já desconfiava que a minha solução fosse mais lenta, mas não resisti em postar. É sempre interessante na nossa lista apresentarmos diversas soluções e realçarmos prós e contras delas. As suas contribuições têm sido fundamentais nesse sentido. Sorte nossa tê-lo conosco. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
Mas essa e' a intencao: experimentaR (tai' um bom nome pra um pacote). Assim como voce, eu tambem nao resisti. E a sorte e' de todos (eu incluso), nao pela minha presenca, mas pela de todos no grupo. :) b
participantes (4)
-
Benilton Carvalho -
Marcos Silva -
Pedro Rafael -
Walmes Zeviani