web-dev-qa-db-ja.com

文字列/文字のベクトルを連結する

文字型のベクトルがある場合、値を文字列に連結するにはどうすればよいですか。これがpaste（）を使ったやり方です。

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

"abc"を返します。

しかし、もちろん、これはsdataの長さが事前にわかっている場合にのみ機能します。

rstringr-faq
232
Nick

貼り付け関数内で空の折りたたみ引数を使用してみてください。

paste(sdata, collapse = '')

おかげで http://Twitter.com/onelinetips/status/749180634

412
Matt Turner

マットの答えは間違いなく正しい答えです。しかし、これは漫画の救済目的のための代替解決策です：

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

collapseパッケージのstringiパラメータでstri_paste関数を次のように使用できます。

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
5
bartektartanus

sdataの場合：

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

整数ベクトルの場合：

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

マットターナーの答えは間違いなく正しい答えです。しかし、Ken Williamsの答えの精神では、次のようにすることもできます。

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