连接字符串/字符的向量

273

如果我有一个character类型的向量，如何将这些值连接成字符串？这是我将使用paste（）做到的方式：

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

屈服"abc"。

但是，当然，这只有在我提前知道sdata的长度的情况下才有效。

r string r-faq

— 缺口
source

480

尝试在粘贴函数中使用空的折叠参数：

paste(sdata, collapse = '')

感谢http://twitter.com/onelinetips/status/7491806343

— 马特·特纳
source

7

请注意，如果sdata可以包含长度相同或长度可变的字符串，paste(sdata, sep = '', collapse = '')则应使用它们以避免意外结果。

— zelanix

42

马特的答案绝对是正确的答案。但是，这是出于漫画救济目的的另一种解决方案：

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

— 肯·威廉姆斯
source

6

您确实可以在其中运行一条apply（）语句。如果您愿意，我会投票给你;）

— JD Long

如果collapse参数不存在，这实际上是最优雅的解决方案。因此，如果您最近实际上不得不做一些非常相似的事情，那么没有太多的喜剧效果：)

— 飞羊

9

您可以像这样从包中使用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

— Bartektartanus
source

2

我从未在R.上进行过基准测试。

— Torrien

6

对于sdata：

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

对于整数向量：

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

— 帕特里克
source

6

这是一个危险的答案-如果向量元素中包含逗号空间序列，则此答案将删除它们。

— C8H10N4O2

5

Matt Turner的答案绝对是正确的答案。但是，按照肯·威廉姆斯的回答，您还可以这样做：

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

— C8H10N4O2
source

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"

— 风扇
source