การรวมชุดของคอลัมน์เฟรมข้อมูล

อาจจะเป็นเรื่องง่ายๆ

ฉันมี data.frame ประเภทนี้:

df <- data.frame(sp1.name = c("sp1.n1",NA,"sp1.n3",NA), sp1.id = c("sp1.id1","sp1.id2",NA,NA),
                 sp2.name = c(NA,NA,"sp2.n3",NA), sp2.id = c(NA,NA,NA,"sp2.id4"),
                 sp3.name = c("sp3.n1",NA,NA,NA), sp3.id = c("sp3.id1",NA,NA,NA))

ประกอบด้วยคู่คอลัมน์สำหรับดัชนี 'sp' แต่ละรายการ: sp<index>.name และ sp<index>.id ในดัชนีตัวอย่างนี้คือ 1,2,3

ฉันกำลังมองหาวิธี (อาจถึง tidyverse) เพื่อรวมสำหรับแต่ละ sp คู่ของคอลัมน์ชื่อและรหัสที่เกี่ยวข้องซึ่งมีกฎสำหรับการรวมคือ:

  1. if !is.na(sp<index>.name) & !is.na(sp<index>.id) return sp<index>.name
  2. if !is.na(sp<index>.name) & is.na(sp<index>.id) return sp<index>.name
  3. else if is.na(sp<index>.name) & !is.na(sp<index>.id) return sp<index>.id
  4. else return NA

ดังนั้นสำหรับตัวอย่างนี้ ผลลัพธ์ data.frame คือ:

df <- data.frame(sp1 = c("sp1.n1","sp1.id2","sp1.n3",NA),
                 sp2 = c(NA,NA,"sp2.n3","sp2.id4"),
                 sp3 = c("sp3.n1",NA,NA,NA))

r tidyverse dataframe dplyr tidyr
person dan    schedule 26.01.2019    source แหล่งที่มา

คำตอบ (1)


arrow_upward
2
arrow_downward

คุณสามารถทำได้:

library(tidyverse)

df %>%
  mutate(rn = row_number()) %>%
  gather(id, value, -rn) %>%
  mutate(idx = gsub("\\..*", "", id)) %>%
  group_by(idx, rn) %>%
  mutate(
    value = case_when(
      any(grepl("name", id) & !is.na(value)) & any( (grepl("id", id) & !is.na(value)) | (grepl("id", id) & is.na(value)) ) ~ value[grepl("name", id)],
      any(grepl("name", id) & is.na(value)) & any(grepl("id", id) & !is.na(value)) ~ value[grepl("id", id)],
      TRUE ~ NA_character_)) %>% 
  distinct(idx, value, rn) %>%
  spread(idx, value)

การให้:

# A tibble: 4 x 4
# Groups:   rn [4]
     rn sp1     sp2     sp3   
  <int> <chr>   <chr>   <chr> 
1     1 sp1.n1  NA      sp3.n1
2     2 sp1.id2 NA      NA    
3     3 sp1.n3  sp2.n3  NA    
4     4 NA      sp2.id4 NA
person arg0naut91    schedule 26.01.2019