¿Cómo se pueden concatenar dos cadenas?

¿Cómo puedo concatenar (fusionar, combinar) dos valores? Por ejemplo tengo:

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

Mi objetivo es concatenar los dos valores en "tmp" en una cadena:

tmp_new = "GAD,AB"

¿Qué función puede hacer esto por mí?

paste()

es el camino a seguir Como señalaron los carteles anteriores, pegar puede hacer dos cosas:

concatenar valores en una "cadena", por ejemplo

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

donde el argumento sepespecifica los caracteres que se utilizarán entre los argumentos para concatenar o contraer vectores de caracteres

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

donde el argumento collapseespecifica los caracteres que se utilizarán entre los elementos del vector que se contraerá.

Incluso puedes combinar ambos:

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

Espero que esto ayude.

help.search() es una función útil, p. ej.

> help.search("concatenate")

le llevará a paste().

Para la primera no paste()respuesta, podemos mirar stringr::str_c()(y luego a toString()continuación). No ha existido tanto tiempo como esta pregunta, así que creo que es útil mencionar que también existe.

Muy simple de usar, como puedes ver.

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

De la descripción de su archivo de documentación, encaja bien con este problema.

Para comprender cómo funciona str_c, debe imaginar que está creando una matriz de cadenas. Cada argumento de entrada forma una columna y se expande a la longitud del argumento más largo, utilizando las reglas de reciclaje habituales. La cadena sep se inserta entre cada columna. Si el colapso es NULL, cada fila se contrae en una sola cadena. Si no es NULL, esa cadena se inserta al final de cada fila, y toda la matriz se contrae en una sola cadena.

Agregado 13/04/2016 : No es exactamente lo mismo que su salida deseada (espacio extra), pero nadie lo ha mencionado tampoco. toString()es básicamente una versión paste()con collapse = ", "código rígido, por lo que puedes hacer

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

Como otros han señalado, paste()es el camino a seguir. Pero puede ser molesto tener que escribir paste(str1, str2, str3, sep='')cada vez que desee el separador no predeterminado.

Puede crear fácilmente funciones de envoltura que hacen la vida mucho más simple. Por ejemplo, si te encuentras concatenando cadenas sin separador muy a menudo, puedes hacer:

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

o si a menudo quieres unir cadenas de un vector (como implode()de PHP):

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

Te permite hacer esto:

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

Además, está incorporado paste0, que hace lo mismo que mi implode, pero sin permitir separadores personalizados. Es un poco más eficiente que paste().

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

Encontré esto en Google buscando cadenas de concatenación R : http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

Alternativamente, si su objetivo es enviar directamente a un archivo o stdout, puede usar cat:

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

De otra manera:

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

A veces es útil que la paste()función. %sdenota el lugar donde se incluirán las cadenas subjetivas.

Tenga en cuenta que esto será útil cuando intente crear una ruta:

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

salida

/this/is/a/path

Puede crear su propio operador:

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

También puede redefinir el &operador 'y' ( ):

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

jugar con la sintaxis de línea de base es feo, pero también lo es usarlo paste()/paste0()si trabajas solo con tu propio código, puedes (casi siempre) reemplazar el & andoperador lógico con *y multiplicar los valores lógicos en lugar de usar 'y' lógico

Dada la matriz, tmp, que creaste:

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

Supongo que hay alguna razón por la que está creando una matriz usando cbind, en lugar de simplemente:

tmp <- "GAD,AB"

Considere el caso donde las cadenas son columnas y el resultado debería ser una nueva columna:

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

Opcionalmente, omita el [c("a", "b")]subconjunto si es necesario pegar todas las columnas.

# 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 = ", ")) 

Otra respuesta sin pegar:

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

Dónde

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

gluees una nueva función, clase de datos y paquete que se ha desarrollado como parte de tidyverse, con mucha funcionalidad extendida. Combina características de paste, sprintf y las otras respuestas anteriores.

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

^{Creado el 06/03/2019 por el paquete reprex (v0.2.1)}

Sí, es excesivo para el ejemplo simple en esta pregunta, pero poderoso para muchas situaciones. (ver https://glue.tidyverse.org/ )

Ejemplo rápido en comparación pastecon a withcontinuación. El gluecódigo fue un poco más fácil de escribir y parece un poco más fácil de leer.

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."

^{Creado el 06/03/2019 por el paquete reprex (v0.2.1)}