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

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

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

tmp_new = "GAD,AB"

哪个函数可以帮我做这个?


当前回答

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

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

其他回答

正如其他人所指出的,paste()是正确的方法。但是每次需要使用非默认分隔符时,都必须输入paste(str1, str2, str3, sep= "),这很烦人。

您可以非常容易地创建包装器函数,使工作变得更加简单。例如,如果你发现自己经常连接没有分隔符的字符串,你可以这样做:

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

或者如果你经常想从一个向量连接字符串(比如PHP中的implode()):

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()稍微高效一些。

你可以创建自己的操作符:

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

你也可以重新定义'and'(&)操作符:

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

混淆基线语法是丑陋的,但是使用paste()/paste0()也是如此,如果你只使用自己的代码,你可以(几乎总是)将逻辑&和操作符替换为*,并执行逻辑值的乘法,而不是使用逻辑'and '

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

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

对于第一个非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()基本上是一个带有collapse = ", "硬编码的paste()版本,所以你可以这样做

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

给定你创建的矩阵tmp:

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

我假设有一些原因,为什么你创建一个矩阵使用cbind,而不是简单地:

tmp <- "GAD,AB"