Mungkin yang sederhana.
Saya memiliki tipe data.frame
ini:
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))
Ini terdiri dari pasangan kolom untuk setiap indeks 'sp': sp<index>.name
dan sp<index>.id
. Dalam contoh ini indeksnya adalah 1,2,3.
Saya mencari cara (mungkin melalui tidyverse
) untuk menggabungkan, untuk setiap sp
, pasangan kolom nama dan id yang sesuai di mana aturan penggabungannya adalah:
if !is.na(sp<index>.name) & !is.na(sp<index>.id) return sp<index>.name
if !is.na(sp<index>.name) & is.na(sp<index>.id) return sp<index>.name
else if is.na(sp<index>.name) & !is.na(sp<index>.id) return sp<index>.id
else return NA
Jadi untuk contoh ini hasil data.frame
adalah:
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))