【发布时间】:2020-04-10 23:11:23
【问题描述】:
我有一个 df:
ID Tag
999 YES
999
100
100 NO
500
我需要将“标签”值填充到匹配的 ID 变量中 - 以便该 ID 的每个实例都有一个匹配的标签所以我最终会得到:
ID Tag
999 YES
999 YES
100 NO
100 NO
500
【问题讨论】:
我有一个 df:
ID Tag
999 YES
999
100
100 NO
500
我需要将“标签”值填充到匹配的 ID 变量中 - 以便该 ID 的每个实例都有一个匹配的标签所以我最终会得到:
ID Tag
999 YES
999 YES
100 NO
100 NO
500
【问题讨论】:
您可以使用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
【讨论】: