r - 在列中添加最后填写的字段(r 语言)

Question

我有我的表(输入):

user_id  level1 level2 level3 level4
Rob      123456 456456 NA     12345
Mike     23445  NA     NA     NA
Stan     23423  345345 NA     NA

我想用最后一个具有值(输出)的 levelName 创建列:

user_id  level1 level2 level3 level4  lastLevel
Rob      123456 456456 NA     12345   level4
Mike     23445  NA     NA     NA      level1
Stan     23423  345345 NA     NA      level2

谢谢!

Answer 1

您可以使用 is.na 和 max.col 的组合:

df$lastLevel <- names(df)[max.col(!is.na(df), "last")]
> df
#  user_id level1 level2 level3 level4 lastLevel
#1     Rob 123456 456456     NA  12345    level4
#2    Mike  23445     NA     NA     NA    level1
#3    Stan  23423 345345     NA     NA    level2