Как объединить две строки?

Ответ 1

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"

Надеюсь, что это поможет.

Ответ 2

help.search() - удобная функция, например.

> help.search("concatenate")

приведет вас к paste().

Ответ 3

Для первого ответа не 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"

Ответ 4

Как уже отмечали другие, 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().

Ответ 5

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

Я нашел это от Google, выполнив поиск строк конкатенации R: http://stat.ethz.ch/R-manual/R-patched/library/base/html/paste.html

Ответ 6

В качестве альтернативы, если ваша цель - выводить непосредственно в файл или стандартный вывод, вы можете использовать cat:

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

Ответ 7

Вы можете создать собственный оператор:

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

Вы также можете переопределить оператор "и" (&):

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

беспорядок с синтаксисом базовой линии является уродливым, но при использовании paste()/paste0(), если вы работаете только с собственным кодом, вы можете (почти всегда) заменить логический оператор & and на * и сделать умножение логических значений вместо использования логический "и &

Ответ 8

Другой способ:

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

Ответ 9

С учетом созданной вами матрицы tmp:

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

Я предполагаю, что есть причина, по которой вы создаете матрицу с использованием cbind, а не просто:

tmp <- "GAD,AB"

Ответ 10

Рассмотрим случай, когда строки являются столбцами, а результатом должен быть новый столбец:

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

Ответ 11

Самый простой способ для новичков конкатенировать строку - это использовать str_c.

library(stringr)
str_c("May", "The", "Force", "Be", "With", "You")
## [1] "MayTheForceBeWithYou"

Пожалуйста, установите stringr в пакет: install.packages("stringr")

Ответ 12

Используйте команду Вставить "для конкатенации.

new_function <- function(conditionValue){
  returnValue <- ""
  if(conditionValue == 1)
    returnValue <- "Passed value is 1"
  else if(conditionValue == 2)
    returnValue <- "Passed values is 2"
  else
    returnValue <- paste("Passed value is " , conditionValue)
}
print(new_function(1))
    [1] "Passed value is 1"
print(new_function(2))
    [1] "Passed values is 2"
print(new_function(3))
   [1] "Passed value is  3"

Подробнее: https://www.r-bloggers.com/string-concatenation-in-r/

Ответ 13

Еще один не вставленный ответ:

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

куда

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

Ответ 14

glue - это новая функция, класс данных и пакет, разработанный в рамках tidyverse с множеством расширенных функциональных возможностей. Он сочетает в себе функции из paste, sprintf и других предыдущих ответов.

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

^{Создано 2019-03-06 пакетом представлением (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 пакетом представлением (v0.2.1)}