Wie kann man zwei strings verkettet werden?

help.search() ist eine praktische Funktion, z.B.

> help.search("concatenate")

führen Sie zu paste().

Wie andere haben darauf hingewiesen, paste() ist der Weg zu gehen. Aber es kann ärgerlich sein, um zu geben paste(str1, str2, str3, sep='') jedes mal, wenn Sie wollen, dass die nicht-Standard-Trennzeichen.

Kann man sehr leicht erstellen, wrapper-Funktionen, die machen das Leben viel einfacher. Zum Beispiel, wenn Sie finden, sich die Verkettung von strings ohne Trennzeichen wirklich oft, Sie tun können:

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

oder wenn Sie Häufig beitreten möchten Saiten von einem Vektor (wie implode() von PHP):

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

Ermöglicht es Ihnen, dies zu tun:

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

Außerdem gibt es die built-in paste0, die nicht die gleiche Sache wie meine implode, aber ohne dass benutzerdefinierte Separatoren. Es ist etwas effizienter als paste().

Alternativ, wenn Ihr Ziel ist es, die Ausgabe direkt in eine Datei oder auf die Standardausgabe, die Sie verwenden können cat:

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

Einen anderen Weg:

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

Es manchmal nützlich, als paste() Funktion. %s bezeichnet den Ort, wo die subjektive strings enthalten.

Beachten Sie, dass diese kommen in handliches, wenn Sie versuchen, einen Weg zu errichten:

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

Ausgabe

/this/is/a/path

Betrachten wir den Fall, wo die Saiten sind Spalten, und das Ergebnis sollte eine neue Spalte:

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

Optional ist, überspringen Sie die [c("a", "b")] subsetting, wenn alle Spalten müssen eingefügt werden.

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

glue ist eine neue Funktion, Daten-Klasse und-Paket, das entwickelt wurde, als Teil der tidyverse, mit einer Menge von erweiterten Funktionen. Es verbindet Merkmale von der paste, sprintf, und die bisherigen anderen Antworten.

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

^{Erstellt am 2019-03-06 durch die reprex Paket (v0.2.1)}

Ja, es ist zuviel für das einfache Beispiel in dieser Frage, aber kraftvoll für viele Situationen. (siehe https://glue.tidyverse.org/)

Schnell Beispiel im Vergleich zu paste mit with unten. Die glue code war ein bisschen einfacher zu geben und sieht ein bisschen einfacher zu Lesen.

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

^{Erstellt am 2019-03-06 durch die reprex Paket (v0.2.1)}