Як можна об'єднати два рядки?

Як я можу об'єднати (об'єднати, об'єднати) два значення? Наприклад, у мене є:

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, цей рядок вставляється в кінці кожного рядка, і вся матриця згортається на один рядок.

Додано 13.04.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 concatenate рядки : 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"

возитися з синтаксисом базової лінії - це некрасиво, але це так, 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, з великим розширеним функціоналом. Він поєднує в собі функції з пасти, спринту та інших попередніх відповідей.

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)}