Jak można połączyć dwa łańcuchy?

Jak mogę połączyć (połączyć, połączyć) dwie wartości? Na przykład mam:

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

Moim celem jest połączenie dwóch wartości w „tmp” w jeden ciąg:

tmp_new = "GAD,AB"

Która funkcja może to dla mnie zrobić?

paste()

jest droga. Jak zauważyli poprzedni plakaty, wklej może zrobić dwie rzeczy:

łączyć wartości w jeden „ciąg”, np

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

gdzie argument sepokreśla znak (znaki), które mają być użyte między argumentami w celu połączenia lub zwinięcia wektorów znaków

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

gdzie argument collapseokreśla znak (znaki), które mają być użyte między elementami wektora, który ma zostać zwinięty.

Możesz nawet połączyć oba:

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

Mam nadzieję że to pomoże.

help.search() jest przydatną funkcją, np

> help.search("concatenate")

doprowadzi cię do paste().

W przypadku pierwszego braku paste()odpowiedzi możemy spojrzeć na stringr::str_c()(a następnietoString() poniżej). To pytanie nie istniało tak długo, więc myślę, że warto wspomnieć, że istnieje.

Bardzo prosty w użyciu, jak widać.

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

Z opisu pliku dokumentacji ładnie pasuje do tego problemu.

Aby zrozumieć, jak działa str_c, musisz sobie wyobrazić, że budujesz macierz ciągów. Każdy argument wejściowy tworzy kolumnę i jest rozszerzany do długości najdłuższego argumentu, przy użyciu zwykłych reguł recyklingu. Ciąg sep jest wstawiany między każdą kolumnę. Jeśli zwinięcie ma wartość NULL, każdy wiersz jest zwinięty w pojedynczy ciąg. Jeśli ciąg inny niż NULL jest wstawiany na końcu każdego wiersza, a cała macierz jest zwinięta do pojedynczego ciągu.

Dodano 13.04.2016 : To nie jest dokładnie to samo, co pożądane wyjście (dodatkowe miejsce), ale nikt też o tym nie wspomniał. toString()jest w zasadzie wersją paste()z collapse = ", "zakodowanym na stałe, więc możesz to zrobić

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

Jak zauważyli inni, paste()jest to najlepsza droga. Ale denerwujące może być paste(str1, str2, str3, sep='')pisanie za każdym razem, gdy chcesz użyć domyślnego separatora.

Możesz bardzo łatwo tworzyć funkcje opakowania, które znacznie upraszczają życie. Na przykład, jeśli często łączysz łańcuchy bez separatora, możesz:

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

lub jeśli często chcesz łączyć ciągi z wektora (np. implode()z PHP):

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

Pozwala to zrobić:

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

Jest też wbudowana funkcja paste0, która robi to samo co moja implode, ale nie zezwala na niestandardowe separatory. Jest nieco bardziej wydajny niż paste().

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

Znalazłem to od Google, szukając R konkatenujących ciągów : http://stat.ethz.ch/R-manual/R-pched/library/base/html/paste.html

Alternatywnie, jeśli Twoim celem jest wyjście bezpośrednio do pliku lub standardowego wyjścia, możesz użyć cat:

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

Inny sposób:

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

Czasami jest przydatny niż paste()funkcja. %soznacza miejsce, w którym zostaną uwzględnione ciągi subiektywne.

Pamiętaj, że przyda się to podczas próby zbudowania ścieżki:

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

wynik

/this/is/a/path

Możesz stworzyć własnego operatora:

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

Możesz także ponownie zdefiniować &operator „i” ( ):

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

mieszanie się ze składnią podstawową jest brzydkie, ale tak samo jest przy użyciu, paste()/paste0()jeśli pracujesz tylko z własnym kodem, możesz (prawie zawsze) zastąpić & andoperator logiczny *i powielać wartości logiczne zamiast używać logicznych „i”

Biorąc pod uwagę macierz, tmp, którą utworzyłeś:

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

Zakładam, że istnieje jakiś powód, dla którego tworzysz macierz za pomocą cbind, a nie po prostu:

tmp <- "GAD,AB"

Rozważ przypadek, w którym ciągi są kolumnami, a wynikiem powinna być nowa kolumna:

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

Opcjonalnie [c("a", "b")]możesz pominąć podzbiór, jeśli wszystkie kolumny wymagają wklejenia.

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

Inna odpowiedź niepasująca:

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

Gdzie

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

glueto nowa funkcja, klasa danych i pakiet, który został opracowany w ramach tidyverse, z dużą ilością rozszerzonych funkcji. Łączy funkcje z wklejania, sprintf i poprzednich innych odpowiedzi.

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

^{Utworzono 2019-03-06 przez pakiet reprezentx (v0.2.1)}

Tak, jest to przesada w przypadku prostego przykładu w tym pytaniu, ale potężny w wielu sytuacjach. (patrz https://glue.tidyverse.org/ )

Szybki przykład w porównaniu pastez withponiższym. TheglueKod był nieco łatwiejszy do pisania i wygląda nieco łatwiejsze do odczytania.

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

^{Utworzono 2019-03-06 przez pakiet reprezentx (v0.2.1)}