根据其他两列更改列

Question

我有一个如下的数据框：

df <- data.frame(matrix(NA, nrow = 5, ncol = 1))
colnames(df) <- "father"
df$father <- c("A", "B", "B","C","D")
df$id <- c("C", "E","F","G","H")
df$pop <- c("ref","ref","ref","val","val")

这给出了：

  father id pop
1      A  C ref
2      B  E ref
3      B  F ref
4      C  G val
5      D  H val

那么如果“id”出现在“father”中，pop的值应该是出现在father所在行的那个。 例如在这个例子中“C”出现在“father”和“id”中，在father C中pop是val，那么，我希望C的pop作为id是val，如下所示：

  father id pop
1      A  C val 
2      B  E ref
3      B  F ref
4      C  G val
5      D  H val

有什么想法吗？

Answer 1

你可以试试下面的

require(dplyr)
require(magrittr)

merge(x = df,
      y = df,
      by.x = 'id',
      by.y = 'father',
      all.x = T) %>% 
  mutate(., pop = ifelse(is.na(pop.y), pop.x, pop.y)) %>%
  subset(., select = c('father', 'id', 'pop'))

想法是通过merge（自all.x=T）对其自身执行左连接，并通过mutate 选择想要的值。