Gabungkan dua atau lebih kolom dalam kerangka data ke dalam kolom baru dengan nama baru

Misalnya jika saya punya ini:

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

Lalu bagaimana cara menggabungkan kedua kolom tersebut ndan smenjadi kolom baru yang diberi nama xsedemikian rupa sehingga terlihat seperti ini:

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

Gunakan 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

Untuk menyisipkan pemisah:

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

Seperti yang telah disebutkan dalam komentar oleh Uwe dan UseR, solusi umum dalam tidyverseformat tersebut adalah dengan menggunakan perintah 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)

Beberapa contoh dengan NA dan penghapusannya menggunakan berlaku

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

Menggunakan 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

Kita bisa menggunakan paste0 :

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

Jika Anda tidak ingin ada ruang padding yang dimasukkan dalam bidang gabungan. Ini lebih berguna jika Anda berencana menggunakan kolom gabungan sebagai id unik yang mewakili kombinasi dua kolom.

Dari pada

• paste (spasi default),
• paste0(memaksa dimasukkannya hilang NAsebagai karakter) atau
• unite (dibatasi hingga 2 kolom dan 1 pemisah),

Saya menyarankan alternatif sefleksibel paste0tetapi lebih berhati-hati dengan 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

^{Dibuat pada 2020-04-10 oleh paket reprex (v0.3.0)}

catatan tambahan dari str_cdokumentasi

Seperti kebanyakan fungsi R lainnya, nilai yang hilang bersifat "menular": setiap kali nilai yang hilang digabungkan dengan string lain, hasilnya akan selalu hilang. Gunakan str_replace_na()untuk mengonversi NAke"NA"

Ada jawaban bagus lainnya, tetapi dalam kasus di mana Anda tidak tahu nama kolom atau jumlah kolom yang ingin Anda gabungkan sebelumnya, berikut ini berguna.

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