การรวมสองสตริงสามารถเชื่อมโยงกันได้อย่างไร

ฉันจะเชื่อมสองค่า (ผสานรวมกัน) เข้าด้วยกันได้อย่างไร เช่นฉันมี:

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

เป้าหมายของฉันคือการเชื่อมสองค่าใน "tmp" กับหนึ่งสตริง:

tmp_new = "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ระบุอักขระที่จะใช้ระหว่างองค์ประกอบของเวกเตอร์ที่จะยุบ

คุณสามารถรวมทั้ง:

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

หวังว่านี่จะช่วยได้

help.search() เป็นฟังก์ชั่นที่ใช้งานง่ายเช่น

> help.search("concatenate")

paste()จะนำคุณไปสู่

สำหรับpaste()คำตอบแรกเราสามารถดูได้stringr::str_c()(และtoString()ด้านล่าง) มันไม่ได้อยู่แค่คำถามนี้ดังนั้นฉันคิดว่ามันมีประโยชน์ที่จะพูดถึงว่ามันมีอยู่ด้วย

ใช้งานง่ายมากอย่างที่คุณเห็น

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

จากคำอธิบายไฟล์เอกสารมันเหมาะกับปัญหานี้อย่างมาก

เพื่อให้เข้าใจถึงการทำงานของ str_c คุณต้องจินตนาการว่าคุณกำลังสร้างเมทริกซ์ของสตริง แต่ละอาร์กิวเมนต์อินพุตสร้างคอลัมน์และถูกขยายเป็นความยาวของอาร์กิวเมนต์ที่ยาวที่สุดโดยใช้กฎการคำนวณซ้ำตามปกติ สตริง sep ถูกแทรกระหว่างแต่ละคอลัมน์ หากการยุบเป็น NULL แต่ละแถวจะถูกยุบเป็นสตริงเดียว หากไม่ใช่ NULL สตริงนั้นจะถูกแทรกที่ส่วนท้ายของแต่ละแถวและเมทริกซ์ทั้งหมดจะยุบลงในสตริงเดี่ยว

เพิ่ม 4/13/2016 : มันไม่เหมือนกับที่คุณต้องการเอาท์พุท (พื้นที่พิเศษ) แต่ไม่มีใครพูดถึงมัน toString()เป็นรุ่นที่paste()มีcollapse = ", "รหัสตายตัวดังนั้นคุณสามารถทำได้

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

ดังที่คนอื่น ๆ ชี้ให้เห็นpaste()เป็นวิธีที่จะไป แต่มันน่ารำคาญที่ต้องพิมพ์paste(str1, str2, str3, sep='')ทุกครั้งที่คุณต้องการตัวแยกที่ไม่ใช่ค่าเริ่มต้น

คุณสามารถสร้างฟังก์ชั่นเสื้อคลุมที่ทำให้ชีวิตง่ายขึ้นมาก ตัวอย่างเช่นหากคุณพบว่าตัวเองเรียงสตริงที่ไม่มีตัวคั่นบ่อย ๆ คุณสามารถทำได้:

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

หรือถ้าคุณต้องการเข้าร่วมสตริงจากเวกเตอร์ (เช่นimplode()จาก PHP) บ่อยครั้ง:

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()เล็กน้อย

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

ฉันพบสิ่งนี้จาก Google โดยค้นหาสตริงเชื่อมโยง R : http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

หรือหากวัตถุประสงค์ของคุณคือส่งออกโดยตรงไปยังไฟล์หรือ stdout คุณสามารถใช้cat:

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

อีกวิธีหนึ่ง:

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

คุณสามารถสร้างผู้ประกอบการของคุณเอง:

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

นอกจากนี้คุณยังสามารถกำหนด&ผู้ประกอบการ'และ' ( ) ใหม่ได้:

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

messing with baseline syntax นั้นน่าเกลียด แต่paste()/paste0()ถ้าหากคุณทำงานกับโค้ดของคุณเองคุณสามารถ (เกือบทุกครั้ง) แทนที่& andตัวดำเนินการเชิงตรรกะด้วย*และทำการคูณค่าตรรกะแทนการใช้ตรรกะ 'และ &'

รับเมทริกซ์ tmp ที่คุณสร้าง:

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

ฉันคิดว่ามีเหตุผลบางอย่างที่คุณกำลังสร้างเมทริกซ์โดยใช้ cbind ซึ่งตรงข้ามกับ:

tmp <- "GAD,AB"

พิจารณากรณีที่สตริงเป็นคอลัมน์และผลลัพธ์ควรเป็นคอลัมน์ใหม่:

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พร้อมฟังก์ชั่นเสริมมากมาย มันรวมคุณสมบัติจากการวาง sprintf และคำตอบอื่น ๆ ก่อนหน้านี้

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

^{สร้างเมื่อ 2019-03-06 โดยแพ็คเกจ reprex (v0.2.1)}

ใช่มันเกินความจริงสำหรับตัวอย่างง่ายๆในคำถามนี้ แต่ทรงพลังสำหรับหลาย ๆ สถานการณ์ (ดู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."

^{สร้างเมื่อ 2019-03-06 โดยแพ็คเกจ reprex (v0.2.1)}