Kombinieren Sie zwei oder mehr Spalten in einem Datenrahmen zu einer neuen Spalte mit einem neuen Namen

Zum Beispiel, wenn ich das habe:

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

Dann , wie kombiniere ich die beiden Spalten nund sin eine neue Spalte mit dem Namen , xso dass es wie folgt aussieht:

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

Verwenden Sie 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

Zum Einfügen eines Trennzeichens:

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

Wie bereits in den Kommentaren von Uwe und UseR erwähnt, besteht eine allgemeine Lösung im tidyverseFormat darin, den folgenden Befehl zu verwenden 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)

Einige Beispiele mit NAs und deren Entfernung mit gelten

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

Verwenden von 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

Wir können paste0 verwenden :

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

Wenn Sie nicht möchten, dass im verketteten Feld ein Auffüllbereich eingefügt wird. Dies ist nützlicher, wenn Sie das kombinierte Feld als eindeutige ID verwenden möchten, die Kombinationen aus zwei Feldern darstellt.

Anstatt

• paste (Standard-Leerzeichen),
• paste0(erzwinge die Aufnahme von fehlenden NAals Zeichen) oder
• unite (beschränkt auf 2 Spalten und 1 Trennzeichen),

Ich würde eine Alternative vorschlagen, die so flexibel wie, paste0aber vorsichtiger ist mit 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

^{Erstellt am 2020-04-10 durch das reprex-Paket (v0.3.0)}

zusätzlicher Hinweis aus der str_cDokumentation

Wie die meisten anderen R-Funktionen sind fehlende Werte "ansteckend": Wenn ein fehlender Wert mit einer anderen Zeichenfolge kombiniert wird, fehlt immer das Ergebnis. Verwenden Sie str_replace_na()zum Konvertieren NAin"NA"

Es gibt andere gute Antworten, aber wenn Sie die Spaltennamen oder die Anzahl der Spalten, die Sie im Voraus verketten möchten, nicht kennen, ist Folgendes hilfreich.

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