如何根据 ID 自加入/合并行？ R Dplyr

Question

I have some ugly data that I'm working with that looks like this.

My Goal is to get this

Here is my code and I tried doing an inner_join and full_join but I couldn't get only 3 rows.

data <- data.frame("ID" = c(11,11,22,22,33,33),
           "Time 1" = c(131, NA, NA, NA, 177, 177),
           "Time 2" = c(NA, 145, 342, 342, NA, 187),
           "Time 3" = c(NA, 165,NA, 412, 212, 212))

data <- inner_join(data, data, by = "ID")

Answer 1

Perhaps this helps

library(dplyr)
data %>% group_by(ID) %>% summarise(across(everything(), ~ if(all(is.na(.))) NA_real_ else .[complete.cases(.)][1]))

Answer 2

library(tidyverse)
data %>%
  pivot_longer(-ID) %>%
  group_by(ID) %>% fill(value, .direction = "up") %>% ungroup() %>%
  pivot_wider(names_from = "name", values_from = "value", values_fn = max)