我如何连接(合并,组合)两个值? 例如,我有:
tmp = cbind("GAD", "AB")
tmp
# [,1] [,2]
# [1,] "GAD" "AB"
我的目标是将“tmp”中的两个值连接到一个字符串:
tmp_new = "GAD,AB"
哪个函数可以帮我做这个?
我如何连接(合并,组合)两个值? 例如,我有:
tmp = cbind("GAD", "AB")
tmp
# [,1] [,2]
# [1,] "GAD" "AB"
我的目标是将“tmp”中的两个值连接到一个字符串:
tmp_new = "GAD,AB"
哪个函数可以帮我做这个?
当前回答
给定你创建的矩阵tmp:
paste(tmp[1,], collapse = ",")
我假设有一些原因,为什么你创建一个矩阵使用cbind,而不是简单地:
tmp <- "GAD,AB"
其他回答
> tmp = paste("GAD", "AB", sep = ",")
> tmp
[1] "GAD,AB"
我从谷歌中通过搜索R个串联字符串找到了这个:http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html
paste()
才是正确的选择。正如之前的海报所指出的,粘贴可以做两件事:
将值串联成一个“字符串”,例如:
> paste("Hello", "world", sep=" ")
[1] "Hello world"
其中参数sep指定在参数之间用于连接的字符, 或者折叠字符向量
> x <- c("Hello", "World")
> x
[1] "Hello" "World"
> paste(x, collapse="--")
[1] "Hello--World"
其中参数collapse指定要折叠的vector元素之间使用的字符。
你甚至可以将两者结合起来:
> paste(x, "and some more", sep="|-|", collapse="--")
[1] "Hello|-|and some more--World|-|and some more"
另一个非粘贴的答案:
x <- capture.output(cat(data, sep = ","))
x
[1] "GAD,AB"
在哪里
data <- c("GAD", "AB")
对于第一个非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"
或者,如果你的目标是直接输出到文件或标准输出,你可以使用cat:
cat(s1, s2, sep=", ")