web-dev-qa-db-fra.com

Concaténer un vecteur de chaînes / de caractères

Si j'ai un vecteur de caractère, comment puis-je concaténer les valeurs en chaîne? Voici comment je le ferais avec paste ():

sdata = c('a', 'b', 'c')
paste(sdata[1], sdata[2], sdata[3], sep ='')

donnant "abc".

Mais bien sûr, cela ne fonctionne que si je connais la longueur de sdata à l'avance.

rstringr-faq
236
Nick

Essayez d’utiliser un argument vide collapse dans la fonction de collage:

paste(sdata, collapse = '')

Merci à http://Twitter.com/onelinetips/status/749180634

418
Matt Turner

La réponse de Matt est certainement la bonne réponse. Cependant, voici une solution alternative pour le soulagement comique:

do.call(paste, c(as.list(sdata), sep = ""))
37
Ken Williams

Vous pouvez utiliser la fonction stri_paste avec le paramètre collapse du package stringi comme ceci:

stri_paste(letters, collapse='')
## [1] "abcdefghijklmnopqrstuvwxyz"

Et quelques repères:

require(microbenchmark)
test <- stri_Rand_lipsum(100)
microbenchmark(stri_paste(test, collapse=''), paste(test,collapse=''), do.call(paste, c(as.list(test), sep="")))
Unit: microseconds
                                      expr     min       lq     mean   median       uq     max neval
           stri_paste(test, collapse = "") 137.477 139.6040 155.8157 148.5810 163.5375 226.171   100
                paste(test, collapse = "") 404.139 406.4100 446.0270 432.3250 442.9825 723.793   100
do.call(paste, c(as.list(test), sep = "")) 216.937 226.0265 251.6779 237.3945 264.8935 405.989   100
5
bartektartanus

Pour sdata:

gsub(", ","",toString(sdata))

Pour un vecteur d'entiers:

gsub(", ","",toString(c(1:10)))
4
Patrick

La réponse de Matt Turner est certainement la bonne réponse. Cependant, dans l’esprit de la réponse de Ken Williams, vous pourriez également faire:

capture.output(cat(sdata, sep=""))
3
C8H10N4O2