如何将两个字符串连接起来？

Question

如何连接(合并,组合)两个值？例如,我有:

tmp = cbind("GAD", "AB")
tmp
#      [,1]  [,2]
# [1,] "GAD" "AB"

我的目标是将"tmp"中的两个值连接到一个字符串:

tmp_new = "GAD,AB"

哪个功能可以为我做到这一点？

Answer 1

paste()

是要走的路.正如之前的海报所指出的,粘贴可以做两件事:

将值连接成一个"字符串",例如

> paste("Hello", "world", sep=" ")
[1] "Hello world"

其中参数sep指定要连接的参数之间使用的字符,或折叠字符向量

> x <- c("Hello", "World")
> x
[1] "Hello" "World"
> paste(x, collapse="--")
[1] "Hello--World"

其中参数collapse指定要折叠的向量元素之间使用的字符.

你甚至可以结合两者:

> paste(x, "and some more", sep="|-|", collapse="--")
[1] "Hello|-|and some more--World|-|and some more"

希望这可以帮助.

Answer 2

help.search() 是一个方便的功能,例如

> help.search("concatenate")

会带你去paste().

Answer 3

对于第一个非paste()答案,我们可以查看stringr::str_c()(然后toString()在下面).只要这个问题没有出现,所以我认为提及它也存在是有用的.

您可以看到,使用非常简单.

tmp <- cbind("GAD", "AB")
library(stringr)
str_c(tmp, collapse = ",")
# [1] "GAD,AB"

从它的文档文件描述,它很好地适应了这个问题.

要了解str_c的工作原理,您需要想象您正在构建一个字符串矩阵.每个输入参数都形成一个列,并使用通常的重新规划规则扩展到最长参数的长度.sep字符串插入每列之间.如果collapse为NULL,则每行都会折叠为单个字符串.如果非NULL,则在每行的末尾插入该字符串,并将整个矩阵折叠为单个字符串.

2016年4月13日添加:它与您想要的输出(额外空间)不完全相同,但没有人提及它. toString()基本的版本paste()与collapse = ", "硬编码的,所以你可以做

toString(tmp)
# [1] "GAD, AB"

Answer 4

正如其他人所指出的那样,paste()是要走的路.但是paste(str1, str2, str3, sep='')每次你想要非默认分隔符时都必须输入它会很烦人.

您可以非常轻松地创建包装函数,使生活更简单.例如,如果你发现自己经常连接没有分隔符的字符串,你可以这样做:

p <- function(..., sep='') {
    paste(..., sep=sep, collapse=sep)
}

或者如果您经常想要从向量中加入字符串(例如implode()从PHP):

implode <- function(..., sep='') {
     paste(..., collapse=sep)
}

允许您这样做:

p('a', 'b', 'c')
#[1] "abc"
vec <- c('a', 'b', 'c')
implode(vec)
#[1] "abc"
implode(vec, sep=', ')
#[1] "a, b, c"

此外,还有内置功能paste0,它与我的功能相同implode,但不允许使用自定义分隔符.它的效率略高于paste().

Answer 5

> tmp = paste("GAD", "AB", sep = ",")
> tmp
[1] "GAD,AB"

我通过搜索R连接字符串从Google找到了这个:http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

Answer 6

或者,如果您的目标是直接输出到文件或标准输出,您可以使用cat:

cat(s1, s2, sep=", ")

Answer 7

其他方式:

sprintf("%s you can add other static strings here %s",string1,string2)

它有时比paste()功能更有用.%s表示将包含主观字符串的位置.

请注意,当您尝试构建路径时,这将派上用场:

sprintf("/%s", paste("this", "is", "a", "path", sep="/"))

产量

/this/is/a/path

Answer 8

您可以创建自己的运算符:

'%&%' <- function(x, y)paste0(x,y)
"new" %&% "operator"
[1] newoperator`

您还可以重新定义'和'(&)运算符:

'&' <- function(x, y)paste0(x,y)
"dirty" & "trick"
"dirtytrick"

搞乱基线语法很难看,但paste()/paste0()如果你只使用自己的代码就可以使用,你可以(几乎总是)用逻辑& and运算符代替逻辑运算符,*而不是使用逻辑'和&'

Answer 9

给定您创建的矩阵tmp:

paste(tmp[1,], collapse = ",")

我假设您使用cbind创建矩阵有一些原因,而不是简单地:

tmp <- "GAD,AB"