Bagaimana dua string bisa digabungkan?

Bagaimana saya bisa menggabungkan (menggabungkan, menggabungkan) dua nilai? Misalnya saya punya:

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

Tujuan saya adalah menggabungkan dua nilai dalam "tmp" ke satu string:

tmp_new = "GAD,AB"

Fungsi mana yang bisa melakukan ini untuk saya?

paste()

adalah cara untuk pergi. Seperti yang ditunjukkan poster sebelumnya, tempel dapat melakukan dua hal:

menggabungkan nilai menjadi satu "string", mis

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

di mana argumen sepmenentukan karakter yang akan digunakan antara argumen untuk menyatukan, atau menciutkan vektor karakter

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

di mana argumen collapsemenentukan karakter yang akan digunakan di antara elemen-elemen vektor yang akan diciutkan.

Anda bahkan dapat menggabungkan keduanya:

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

Semoga ini membantu.

help.search() adalah fungsi praktis, mis

> help.search("concatenate")

akan membawa Anda ke paste().

Untuk paste()jawaban pertama , kita bisa melihat stringr::str_c()(dan kemudiantoString() bawah). Belum ada selama pertanyaan ini, jadi saya pikir itu berguna untuk menyebutkan bahwa itu juga ada.

Sangat mudah digunakan, seperti yang Anda lihat.

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

Dari deskripsi file dokumentasinya, ini cocok dengan masalah ini.

Untuk memahami bagaimana str_c bekerja, Anda perlu membayangkan bahwa Anda sedang membangun matriks string. Setiap argumen input membentuk kolom, dan diperluas ke panjang argumen terpanjang, menggunakan aturan recyling yang biasa. String sep dimasukkan di antara setiap kolom. Jika runtuh adalah NULL, setiap baris diciutkan menjadi satu string. Jika non-NULL string itu dimasukkan pada akhir setiap baris, dan seluruh matriks diciutkan menjadi satu string.

Ditambahkan 4/13/2016 : Ini tidak persis sama dengan output yang Anda inginkan (ruang ekstra), tetapi tidak ada yang menyebutkannya juga. toString()pada dasarnya adalah versi paste()dengan collapse = ", "hard-coded, jadi Anda bisa melakukannya

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

Seperti yang telah ditunjukkan orang lain, paste()adalah jalan yang harus ditempuh. Tapi itu bisa menjengkelkan harus mengetik paste(str1, str2, str3, sep='')setiap kali Anda ingin pemisah non-standar.

Anda dapat dengan mudah membuat fungsi pembungkus yang membuat hidup lebih sederhana. Misalnya, jika Anda mendapati diri Anda merangkai senar tanpa pemisah, Anda dapat:

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

atau jika Anda sering ingin menggabungkan string dari vektor (seperti implode()dari PHP):

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

Memungkinkan Anda melakukan ini:

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

Juga, ada built-in paste0, yang melakukan hal yang sama seperti saya implode, tetapi tanpa mengizinkan pemisah kustom. Ini sedikit lebih efisien daripada paste().

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

Saya menemukan ini dari Google dengan mencari string gabungan R : http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

Atau, jika tujuan Anda adalah untuk menampilkan langsung ke file atau stdout, Anda dapat menggunakan cat:

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

Cara lain:

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

Kadang-kadang berguna daripada paste()fungsi. %smenunjukkan tempat di mana string subjektif akan dimasukkan.

Perhatikan bahwa ini akan berguna saat Anda mencoba membangun jalur:

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

keluaran

/this/is/a/path

Anda dapat membuat operator Anda sendiri:

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

Anda juga dapat mendefinisikan ulang &operator 'dan' ( ):

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

mengacaukan sintaksis dasar jelek, tetapi begitu juga menggunakan paste()/paste0()jika Anda hanya bekerja dengan kode Anda sendiri, Anda dapat (hampir selalu) mengganti & andoperator logis dengan *dan melakukan penggandaan nilai-nilai logis daripada menggunakan logis 'dan &'

Dengan matriks, tmp, yang Anda buat:

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

Saya berasumsi ada beberapa alasan mengapa Anda membuat matriks menggunakan cbind, bukan hanya:

tmp <- "GAD,AB"

Pertimbangkan kasus di mana string adalah kolom dan hasilnya harus berupa kolom baru:

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

Secara opsional, lewati [c("a", "b")]subset jika semua kolom perlu ditempel.

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

Jawaban tanpa tempel lainnya:

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

Dimana

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

glueadalah fungsi baru, kelas data, dan paket yang telah dikembangkan sebagai bagian dari tidyverse, dengan banyak fungsi tambahan. Ini menggabungkan fitur dari tempel, sprintf, dan jawaban lain sebelumnya.

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

^{Dibuat pada 2019-03-06 oleh paket reprex (v0.2.1)}

Ya, itu berlebihan untuk contoh sederhana dalam pertanyaan ini, tetapi kuat untuk banyak situasi. (lihat https://glue.tidyverse.org/ )

Contoh cepat dibandingkan pastedengan di withbawah ini. The gluekode adalah sedikit lebih mudah untuk mengetik dan tampak agak lebih mudah dibaca.

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

^{Dibuat pada 2019-03-06 oleh paket reprex (v0.2.1)}