有条件地填充空单元格

Question

我有一个缺少某些值的命名向量：

x = c(99, 88, 1, 2, 3, NA, NA)
names(x) = c("A", "C", "AA", "AB", "AC", "AD", "CA")

第二个数据框反映了层次结构的命名结构（例如，A是AA，AB和AC的上级）

filler = data.frame(super = c("A", "A", "A", "A", "C"), sub = c("AA", "AB", "AC", "AD", "CA"))

如果x中缺少一个值，我想用fill的上级填充它。 这样的结果是

x = c(99, 88, 1, 2, 3, 99, 88)

有人有任何聪明的方法可以做到这一点，而又不会无所适从吗？

Answer 1

我们可以基于NA元素创建逻辑向量（'i1'），获取具有match 'filler'中匹配元素的索引，然后进行赋值

i1 <- is.na(x)
x[i1] <- x[match(filler$super[match(names(x[i1]), filler$sub)], names(x))] 
as.vector(x)
#[1] 99 88  1  2  3 99 88

Answer 2

由于x是命名向量，我们可以将其转换为数据帧（ enframe ），然后进行enframe ，将NA值替换为对应的value并在需要时再次将其转换为向量。 （ deframe ）。

library(dplyr)
library(tibble)

enframe(x) %>%
  left_join(filler, by = c("name" = "sub")) %>%
   mutate(value = if_else(is.na(value), value[match(super, name)], value)) %>%
   select(-super) %>%
   deframe()

# A  C AA AB AC AD CA 
#99 88  1  2  3 99 88