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

273

文字型のベクトルがある場合、値を文字列に連結するにはどうすればよいですか？ここにpaste（）でそれを行う方法があります：

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

降伏"abc"。

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

r string r-faq

— ニック
ソース

480

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

paste(sdata, collapse = '')

http://twitter.com/onelinetips/status/7491806343に感謝

— マットターナー
ソース

7

if sdataがすべて同じ長さの文字列または可変長の文字列を含むことができる場合は、paste(sdata, sep = '', collapse = '')予期しない結果を避けるために使用する必要があることに注意してください。

— zelanix 2014年

42

マットの答えは間違いなく正しい答えです。ただし、コミック救済のための代替ソリューションは次のとおりです。

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

— ケン・ウィリアムズ
ソース

6

あなたは本当にapply（）ステートメントをそこで働いていたはずです。もしそうなら私はあなたに投票します;）

— JD Long

collapseパラメータが存在しない場合、これは実際には最もエレガントなソリューションになります。最近実際に非常に似たようなことをしなければならなかったとしても、喜劇の救済はそれほど多くありません:)

— 飛ぶ羊

9

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

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

— Bartektartanus
ソース

2

Rでベンチマークを実行したことはありません。

— Torrien

6

の場合sdata：

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

整数のベクトルの場合：

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

— パトリック
ソース

6

これは危険な答えです。ベクトルの要素にカンマスペースシーケンスがある場合、この答えはそれらを削除します。

— C8H10N4O2 2016年

5

マット・ターナーの答えは間違いなく正しい答えです。ただし、ケンウィリアムズの答えの精神で、次のことも実行できます。

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

— C8H10N4O2
ソース

1

以下は、名前付きまたは名前なしの値のリストを単一の文字列に折りたたんで、印刷を簡単にする小さなユーティリティ関数です。また、コード行自体も出力します。Rページの私のリストの例からです。

名前付きまたは名前なしのリストをいくつか生成します。

# Define Lists
ls_num <- list(1,2,3)
ls_str <- list('1','2','3')
ls_num_str <- list(1,2,'3')

# Named Lists
ar_st_names <- c('e1','e2','e3')
ls_num_str_named <- ls_num_str
names(ls_num_str_named) <- ar_st_names

# Add Element to Named List
ls_num_str_named$e4 <- 'this is added'

名前付きまたは名前なしリストを文字列に変換する関数は次のとおりです。

ffi_lst2str <- function(ls_list, st_desc, bl_print=TRUE) {

  # string desc
  if(missing(st_desc)){
    st_desc <- deparse(substitute(ls_list))
  }

  # create string
  st_string_from_list = paste0(paste0(st_desc, ':'), 
                               paste(names(ls_list), ls_list, sep="=", collapse=";" ))

  if (bl_print){
    print(st_string_from_list)
  }
}

前に作成したリストを使用して関数をテストします。

> ffi_lst2str(ls_num)
[1] "ls_num:=1;=2;=3"
> ffi_lst2str(ls_str)
[1] "ls_str:=1;=2;=3"
> ffi_lst2str(ls_num_str)
[1] "ls_num_str:=1;=2;=3"
> ffi_lst2str(ls_num_str_named)
[1] "ls_num_str_named:e1=1;e2=2;e3=3;e4=this is added"

リスト要素のサブセットを使用して関数をテストします。

> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"
> ffi_lst2str(ls_num[2:3])
[1] "ls_num[2:3]:=2;=3"
> ffi_lst2str(ls_str[2:3])
[1] "ls_str[2:3]:=2;=3"
> ffi_lst2str(ls_num_str[2:4])
[1] "ls_num_str[2:4]:=2;=3;=NULL"
> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"

— ファン
ソース