两个字符串如何连接?

小开

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

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

小开

给定你创建的矩阵tmp:

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

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

tmp <- "GAD,AB"

小开

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"

小开

help.search()是一个方便的函数。

> help.search("concatenate")

将引导你到paste()。

小开

正如其他人指出的那样，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()更有效。

小开

对于第一个非-paste()的答案，我们可以查看stringr::str_c()(然后是下面的toString())。它的存在时间没有这个问题长，所以我认为提到它也存在是有用的。

如你所见，使用起来非常简单。

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

从它的文档文件描述来看，它很好地解决了这个问题。

为了理解str_c是如何工作的，您需要想象您正在构建一个字符串矩阵。每个输入参数组成一个列，并使用通常的回收规则扩展到最长参数的长度。sep字符串被插入到每一列之间。如果collapse为NULL，则每一行都被折叠成单个字符串。如果非null，则在每一行的末尾插入该字符串，整个矩阵将折叠为单个字符串。

添加4/13/2016:它与你想要的输出(额外的空间)不完全相同，但也没有人提到过它。toString()基本上是带有硬编码的collapse = ", "的paste()版本，所以你可以这样做

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

小开

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

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

小开

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

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

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

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

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

小开

另一种方法:

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

小开

考虑这样一种情况，字符串是列，结果应该是一个新列:

df <- data.frame(a = letters[1:5], b = LETTERS[1:5], c = 1:5)


df$new_col <- do.call(paste, c(df[c("a", "b")], sep = ", "))
df
#  a b c new_col
#1 a A 1    a, A
#2 b B 2    b, B
#3 c C 3    c, C
#4 d D 4    d, D
#5 e E 5    e, E

如果需要粘贴所有列，可以选择跳过[c("a", "b")]子设置。

# you can also try str_c from stringr package as mentioned by other users too!
do.call(str_c, c(df[c("a", "b")], sep = ", "))

小开

另一个非粘贴的答案:

x <- capture.output(cat(data, sep = ","))
x
[1] "GAD,AB"

在哪里

 data <- c("GAD", "AB")

小开

glue是作为tidyverse的一部分开发的一个新函数、数据类和包，具有许多扩展功能。它结合了paste、sprintf和前面其他答案的特性。

tmp <- tibble::tibble(firststring = "GAD", secondstring = "AB")
(tmp_new <- glue::glue_data(tmp, "{firststring},{secondstring}"))
#> GAD,AB

^{由reprex包 (v0.2.1)创建于2019-03-06}

是的，对于这个问题中的简单例子来说，它有点过头了，但在许多情况下都很强大。(见https://glue.tidyverse.org/)

下面是一个比较paste和with的快速示例。glue代码更容易输入，看起来也更容易阅读。

tmp <- tibble::tibble(firststring = c("GAD", "GAD2", "GAD3"), secondstring = c("AB1", "AB2", "AB3"))
(tmp_new <- glue::glue_data(tmp, "{firststring} and {secondstring} went to the park for a walk. {firststring} forgot his keys."))
#> GAD and AB1 went to the park for a walk. GAD forgot his keys.
#> GAD2 and AB2 went to the park for a walk. GAD2 forgot his keys.
#> GAD3 and AB3 went to the park for a walk. GAD3 forgot his keys.
(with(tmp, paste(firststring, "and", secondstring, "went to the park for a walk.", firststring, "forgot his keys.")))
#> [1] "GAD and AB1 went to the park for a walk. GAD forgot his keys."
#> [2] "GAD2 and AB2 went to the park for a walk. GAD2 forgot his keys."
#> [3] "GAD3 and AB3 went to the park for a walk. GAD3 forgot his keys."

^{由reprex包 (v0.2.1)创建于2019-03-06}