รวมคอลัมน์สองคอลัมน์ขึ้นไปใน dataframe เป็นคอลัมน์ใหม่โดยใช้ชื่อใหม่

ตัวอย่างเช่นถ้าฉันมีสิ่งนี้:

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

แล้วฉันจะรวมทั้งสองคอลัมน์nและsในคอลัมน์ใหม่ชื่อxดังกล่าวว่ามีลักษณะเช่นนี้

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

ใช้ 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

สำหรับการแทรกตัวคั่น:

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

ดังที่ได้กล่าวไว้แล้วในความคิดเห็นของ Uwe และ UseR วิธีแก้ปัญหาทั่วไปในtidyverseรูปแบบจะใช้คำสั่ง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)

ตัวอย่างบางส่วนที่มี NAs และการนำออกโดยใช้ใช้

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

ใช้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

เราสามารถใช้paste0 :

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

หากคุณไม่ต้องการให้มีการเพิ่มพื้นที่ว่างในช่องที่ต่อกัน สิ่งนี้มีประโยชน์มากขึ้นหากคุณกำลังวางแผนที่จะใช้ฟิลด์ที่รวมกันเป็นรหัสเฉพาะที่แสดงถึงการผสมของสองฟิลด์

แทน

• paste (ช่องว่างเริ่มต้น)
• paste0(บังคับให้รวมส่วนที่ขาดหายไปNAเป็นอักขระ) หรือ
• unite (จำกัด ไว้ที่ 2 คอลัมน์และ 1 ตัวคั่น)

ผมขอแนะนำให้เป็นทางเลือกที่เป็นความยืดหยุ่นเป็นpaste0แต่ระมัดระวังมากขึ้นด้วย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

^{สร้างเมื่อ 2020-04-10 โดยแพ็คเกจ reprex (v0.3.0)}

หมายเหตุพิเศษจากstr_cเอกสารประกอบ

เช่นเดียวกับฟังก์ชัน R อื่น ๆ ส่วนใหญ่ค่าที่หายไปคือ "ติดเชื้อ": เมื่อใดก็ตามที่ค่าที่ขาดหายไปรวมกับสตริงอื่นผลลัพธ์จะหายไปเสมอ ใช้str_replace_na()เพื่อแปลงNAเป็นไฟล์"NA"

มีคำตอบที่ดีอื่น ๆ แต่ในกรณีที่คุณไม่ทราบชื่อคอลัมน์หรือจำนวนคอลัมน์ที่คุณต้องการเชื่อมต่อไว้ก่อนสิ่งต่อไปนี้มีประโยชน์

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