R 连接字符串/字符的向量

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

产生“abc”

---

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

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

粘贴（sdata，折叠=“”）

---

多亏了

马特的答案肯定是正确的。然而，这里有一个用于喜剧救济目的的替代解决方案：

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

---

对于

sdata

：

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

对于整数向量：

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

---

马特·特纳的答案绝对是正确的。然而，本着肯·威廉姆斯回答的精神，你也可以：

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

---

您可以将

striu-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

require（微基准）
test这里有一个小实用程序函数，它将一个命名或未命名的值列表折叠为一个字符串，以便于打印。它还将打印代码行本身。这是我的网页

生成一些已命名或未命名的列表：

# 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(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"

另一种方法是使用
胶水
包装：

glue_collapse(glue("{sdata}"))
paste(glue("{sdata}"), collapse = '')

您真的可以在其中使用apply（）语句。如果你愿意，我会投你一票；）如果
collapse
参数不存在，这实际上是最优雅的解决方案。因此，如果你最近真的不得不做一些非常类似的事情，那么就没有多少喜剧性的缓解：）只要注意，如果
sdata
可以包含所有长度相同或长度可变的字符串，那么
粘贴（sdata，sep=''，collapse=''）
应用于避免意外结果。这是一个危险的答案——如果向量元素中存在逗号空间序列，此答案将删除它们。我从未在R上执行过基准测试。很高兴了解一些新情况。
> 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"

glue_collapse(glue("{sdata}"))
paste(glue("{sdata}"), collapse = '')