Combinez deux ou plusieurs colonnes dans un dataframe dans une nouvelle colonne avec un nouveau nom

Par exemple si j'ai ceci:

n = c(2, 3, 5) 
s = c("aa", "bb", "cc") 
b = c(TRUE, FALSE, TRUE) 
df = data.frame(n, s, b)

  n  s     b
1 2 aa  TRUE
2 3 bb FALSE
3 5 cc  TRUE

Alors comment combiner les deux colonnes net sdans une nouvelle colonne nommée de xtelle sorte qu'elle ressemble à ceci:

  n  s     b     x
1 2 aa  TRUE  2 aa
2 3 bb FALSE  3 bb
3 5 cc  TRUE  5 cc

Utilisez paste.

 df$x <- paste(df$n,df$s)
 df
#   n  s     b    x
# 1 2 aa  TRUE 2 aa
# 2 3 bb FALSE 3 bb
# 3 5 cc  TRUE 5 cc

Pour insérer un séparateur:

df$x <- paste(df$n, "-", df$s)

Comme déjà mentionné dans les commentaires de Uwe et UseR, une solution générale dans le tidyverseformat serait d'utiliser la commande unite:

library(tidyverse)

n = c(2, 3, 5) 
s = c("aa", "bb", "cc") 
b = c(TRUE, FALSE, TRUE) 

df = data.frame(n, s, b) %>% 
  unite(x, c(n, s), sep = " ", remove = FALSE)

Quelques exemples avec des NA et leur suppression à l'aide de apply

n = c(2, NA, NA) 
s = c("aa", "bb", NA) 
b = c(TRUE, FALSE, NA) 
c = c(2, 3, 5) 
d = c("aa", NA, "cc") 
e = c(TRUE, NA, TRUE) 
df = data.frame(n, s, b, c, d, e)

paste_noNA <- function(x,sep=", ") {
gsub(", " ,sep, toString(x[!is.na(x) & x!="" & x!="NA"] ) ) }

sep=" "
df$x <- apply( df[ , c(1:6) ] , 1 , paste_noNA , sep=sep)
df

Utilisation dplyr::mutate:

library(dplyr)
df <- mutate(df, x = paste(n, s)) 

df 
> df
  n  s     b    x
1 2 aa  TRUE 2 aa
2 3 bb FALSE 3 bb
3 5 cc  TRUE 5 cc

Nous pouvons utiliser paste0 :

df$combField <- paste0(df$x, df$y)

Si vous ne voulez aucun espace de remplissage introduit dans le champ concaténé. Ceci est plus utile si vous prévoyez d'utiliser le champ combiné comme un identifiant unique qui représente des combinaisons de deux champs.

Au lieu de

• paste (espaces par défaut),
• paste0 (forcer l'inclusion de manquant NA comme caractère) ou
• unite (contraint à 2 colonnes et 1 séparateur),

Je suggérerais une alternative aussi flexible que paste0mais plus prudente avec NA:stringr::str_c

library(tidyverse)

# check the missing value!!
df <- tibble(
  n = c(2, 2, 8),
  s = c("aa", "aa", NA_character_),
  b = c(TRUE, FALSE, TRUE)
)

df %>% 
  mutate(
    paste = paste(n,"-",s,".",b),
    paste0 = paste0(n,"-",s,".",b),
    str_c = str_c(n,"-",s,".",b)
  ) %>% 

  # convert missing value to ""
  mutate(
    s_2=str_replace_na(s,replacement = "")
  ) %>% 
  mutate(
    str_c_2 = str_c(n,"-",s_2,".",b)
  )
#> # A tibble: 3 x 8
#>       n s     b     paste          paste0     str_c      s_2   str_c_2   
#>   <dbl> <chr> <lgl> <chr>          <chr>      <chr>      <chr> <chr>     
#> 1     2 aa    TRUE  2 - aa . TRUE  2-aa.TRUE  2-aa.TRUE  "aa"  2-aa.TRUE 
#> 2     2 aa    FALSE 2 - aa . FALSE 2-aa.FALSE 2-aa.FALSE "aa"  2-aa.FALSE
#> 3     8 <NA>  TRUE  8 - NA . TRUE  8-NA.TRUE  <NA>       ""    8-.TRUE

^{Créé le 2020-04-10 par le package reprex (v0.3.0)}

note supplémentaire de str_c documentation

Comme la plupart des autres fonctions R, les valeurs manquantes sont «infectieuses»: chaque fois qu'une valeur manquante est combinée avec une autre chaîne, le résultat sera toujours manquant. Utilisez str_replace_na()pour convertir NAen"NA"

Il existe d'autres bonnes réponses, mais dans le cas où vous ne connaissez pas les noms de colonnes ou le nombre de colonnes que vous souhaitez concaténer au préalable, ce qui suit est utile.

df = data.frame(x = letters[1:5], y = letters[6:10], z = letters[11:15])
colNames = colnames(df) # could be any number of column names here
df$newColumn = apply(df[, colNames, drop = F], MARGIN = 1, FUN = function(i) paste(i, collapse = ""))