根据另一个中的值填写列

Question

我有一个df：

ID  Tag
999 YES
999 
100
100 NO
500

我需要将'Tag'值填充到匹配的ID变量中-这样该ID的每个实例都具有一个匹配的Tag，所以我将得到以下结果：

ID  Tag
999 YES
999 YES
100 NO 
100 NO
500 

Answer 1

您可以使用ave来按组填充na 。

df$Tag  <- with(df, ave(Tag, ID, FUN=function(x) {
  i <- is.na(x)
  x[i]  <- x[!i][1]
  x
}))
df
#   ID  Tag
#1 999  YES
#2 999  YES
#3 100   NO
#4 100   NO
#5 500 <NA>

或使用fill

library(dplyr)
library(tidyr)
df %>% group_by(ID) %>% fill(Tag, .direction = "downup")
## A tibble: 5 x 2
## Groups:   ID [3]
#     ID Tag  
#  <int> <fct>
#1   999 YES  
#2   999 YES  
#3   100 NO   
#4   100 NO   
#5   500 NA