Concatena un vettore di stringhe / carattere

Se ho un vettore di tipo carattere, come posso concatenare i valori in stringa? Ecco come lo farei con paste () :

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

cedendo "abc" .

Ma naturalmente, questo funziona solo se conosco la lunghezza di sdata prima del tempo.

Prova a utilizzare un argomento di compressione vuoto all’interno della funzione incolla:

paste(sdata, collapse = '')

Grazie a http://twitter.com/onelinetips/status/7491806343

La risposta di Matt è sicuramente la risposta giusta. Tuttavia, ecco una soluzione alternativa per scopi di rilievo comico:

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

Per sdata :

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

Per un vettore di numeri interi:

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

Puoi usare la funzione stri_paste con il parametro collapse dal pacchetto stringi questo modo:

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

E alcuni punti di riferimento:

 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 

La risposta di Matt Turner è sicuramente la risposta giusta. Tuttavia, nello spirito della risposta di Ken Williams, potresti anche fare:

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