Наверное, простой.
У меня такой тип 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
его пары соответствующих столбцов имени и идентификатора, где правила слияния следующие:
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
Итак, для этого примера результат 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))