Kết hợp hai hoặc nhiều cột trong khung dữ liệu thành một cột mới với tên mới

Ví dụ nếu tôi có cái này:

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

Sau đó, làm cách nào để kết hợp hai cột nvà sthành một cột mới có tên xnhư sau:

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

Sử dụng 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

Để chèn dấu phân tách:

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

Như đã được đề cập trong phần nhận xét của Uwe và UseR, một giải pháp chung trong tidyverseđịnh dạng sẽ là sử dụng lệnh 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)

Áp dụng một số ví dụ với NA và việc loại bỏ chúng bằng cách sử dụng

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

Sử dụng 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

Chúng ta có thể sử dụng paste0 :

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

Nếu bạn không muốn bất kỳ khoảng cách đệm nào được đưa vào trường được nối. Điều này hữu ích hơn nếu bạn định sử dụng trường kết hợp làm id duy nhất đại diện cho sự kết hợp của hai trường.

Thay vì

• paste (dấu cách mặc định),
• paste0(buộc bao gồm NAký tự bị thiếu ) hoặc
• unite (giới hạn ở 2 cột và 1 dấu phân tách),

Tôi muốn đề xuất một giải pháp thay thế linh hoạt paste0nhưng cẩn thận hơn với 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

^{Được tạo vào ngày 2020-04-10 bởi gói reprex (v0.3.0)}

ghi chú thêm từ str_ctài liệu

Giống như hầu hết các hàm R khác, các giá trị bị thiếu là "lây nhiễm": bất cứ khi nào một giá trị bị thiếu được kết hợp với một chuỗi khác, kết quả sẽ luôn bị thiếu. Sử dụng str_replace_na()để chuyển đổi NAsang"NA"

Có những câu trả lời tuyệt vời khác, nhưng trong trường hợp bạn không biết trước tên cột hoặc số cột bạn muốn nối, thì phần sau sẽ hữu ích.

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