Объединить вектор строк / символов

Question

Если у меня есть вектор типа символа, как я могу объединить значения в строку?Вот как бы я это сделал с paste () :

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

с результатом "abc".

Но, конечно, это работает, только если я знаю длину sdata с опережением времени.

Answer 1

Попробуйте использовать пустой аргумент collapse в функции вставки:

paste(sdata, collapse = '')

Благодаря http://twitter.com/onelinetips/status/7491806343

Answer 2

Ответ Мэтта определенно правильный.Тем не менее, вот альтернативное решение для комиксов:

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

Answer 3

Вы можете использовать функцию stri_paste с параметром collapse из пакета stringi, например:

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

И некоторые тесты:

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

Answer 4

Для sdata:

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

Для вектора целых чисел:

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

Answer 5

Ответ Мэтта Тернера определенно правильный. Однако, в духе ответа Кена Уильямса, вы также можете сделать:

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