data %>%
    select(-Column) %>%
    #filter(ID == "id2") %>%
    gather() %>%
    drop_na()

