Làm cách nào để có thể ghép nối 2 chuỗi?

Question

Làm cách nào để hợp nhất/kết hợp hai giá trị trong R? Ví dụ tôi có:

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

Mục tiêu của tôi là để có được tmp là một chuỗi

tmp_new = "GAD,AB" 

Những chức năng có thể làm điều này cho tôi?

Answer 1

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

Tôi thấy điều này từ Google bằng cách tìm kiếm R chuỗi concatenate: http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

Answer 2

Với ma trận, tmp, mà bạn đã tạo:

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

tôi giả sử có một số lý do tại sao bạn đang tạo ma trận bằng cách sử dụng cbind, chứ không phải chỉ đơn giản là:

tmp <- "GAD,AB" 

Answer 3

paste() 

là cách để thực hiện. Như các áp phích trước đã chỉ ra, dán có thể làm hai việc:

ghép các giá trị thành một "chuỗi", ví dụ:

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

nơi tranh luận sep quy định các ký tự (s) sẽ được sử dụng giữa các đối số để ghép, hoặc thu gọn vectơ nhân vật

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

nơi tranh luận collapse quy định các ký tự (s) là được sử dụng giữa các phần tử của vectơ bị thu gọn.

Bạn thậm chí có thể kết hợp cả hai:

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

Hope this helps.

Answer 4

help.search() là một chức năng hữu ích, ví dụ:

> help.search("concatenate") 

sẽ dẫn bạn đến paste().

Answer 5

Như những người khác đã chỉ ra, paste() là cách để thực hiện. Nhưng nó có thể gây phiền nhiễu khi phải gõ paste(str1, str2, str3, sep='') mỗi khi bạn muốn dấu phân cách không mặc định.

Bạn có thể dễ dàng tạo các hàm bao bọc làm cho đơn giản hơn nhiều.Ví dụ, nếu bạn thấy mình concatenating chuỗi không có dấu phân cách thực sự thường xuyên, bạn có thể làm:

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

hoặc nếu bạn thường hay muốn tham gia chuỗi từ một vector (như implode() từ php):

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

Cho phép bạn làm điều này:

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

Ngoài ra, có việc xây dựng trong paste0, mà làm điều tương tự như implode của tôi, nhưng mà không allo cánh tách tùy chỉnh. Nó hiệu quả hơn một chút so với paste().

Answer 6

Đối với câu trả lời đầu tiên không phải là paste(), chúng tôi có thể xem stringr::str_c() (và sau đó toString() bên dưới). Nó đã không được xung quanh miễn là câu hỏi này, vì vậy tôi nghĩ rằng nó hữu ích để đề cập đến nó cũng tồn tại.

Rất đơn giản để sử dụng, như bạn có thể thấy.

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

Từ mô tả tệp tài liệu, nó phù hợp với vấn đề này một cách độc đáo.

Để hiểu cách str_c hoạt động, bạn cần phải hình dung rằng bạn đang xây dựng một ma trận chuỗi. Mỗi đối số đầu vào tạo thành một cột và được mở rộng đến độ dài của đối số dài nhất, sử dụng các quy tắc tái tạo thông thường. Chuỗi sep được chèn vào giữa mỗi cột. Nếu thu gọn là NULL, mỗi hàng được thu gọn thành một chuỗi. Nếu không NULL chuỗi đó được chèn vào cuối mỗi hàng, và toàn bộ ma trận được thu gọn thành một chuỗi.

Added 2016/04/13: Nó không hoàn toàn giống như đầu ra mong muốn của bạn (thêm không gian), nhưng không có ai có đề cập nó một trong hai. toString() về cơ bản là một phiên bản của paste() với collapse = ", " mã hóa cứng, vì vậy bạn có thể làm

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

Answer 7

Ngoài ra, nếu mục tiêu của bạn là để đầu ra trực tiếp vào một tập tin hoặc stdout, bạn có thể sử dụng cat:

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

Answer 8

bạn có thể tạo bạn hành riêng:

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

bạn cũng có thể định nghĩa lại 'và' (&) op erator:

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

rối tung với cú pháp cơ bản là xấu xí, nhưng như vậy là sử dụng paste()/paste0() nếu bạn chỉ làm việc với mã riêng của bạn, bạn có thể (hầu như luôn luôn) thay thế logic & and điều hành với * và làm phép nhân các giá trị logic thay vì sử dụng logic và & '

Answer 9

Một cách khác:

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

Nó đôi khi hữu ích hơn paste() chức năng. %s biểu thị vị trí mà các chuỗi chủ quan sẽ được bao gồm.

Lưu ý rằng điều này sẽ có ích khi bạn cố gắng xây dựng một con đường:

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

đầu ra

/this/is/a/path 

Answer 10

Hãy xem xét trường hợp dây là cột và kết quả nên cột mới :

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 

Tùy chọn, bỏ qua [c("a", "b")] nếu tất cả các cột mốc ns cần được dán.

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