我有一个由多个案例组成的数据集，这些案例被标记为 1 或 NA。我试图找出一种方法来为每种情况返回不是 NA 的最高编号邮票。
以下是一些示例数据：
PIN <- c("case1", "case2", "case3", "case4", "case5")
STAMP_1 <- c(1, 1, 1, 1, 1)
STAMP_2 <- c(NA, 1, 1, NA, 1)
STAMP_3 <- c(1, NA, 1, 1, NA)
STAMP_4 <- c(NA, NA, 1, 1, NA)
STAMP_5 <- c(1, NA, NA, 1, NA)
data <- data.frame(PIN, STAMP_1, STAMP_2, STAMP_3, STAMP_4, STAMP_5)
我想找出一种方法来返回一个包含以下列的数据框：“case1”、“case2”、“case3”、“case4”、“case5”和“STAMP_5”、“STAMP_2”、“STAMP_4” ，“STAMP_5”，“STAMP_2”在这种情况下。