I have below-mentioned dataframe in R:
DF <- tibble::tribble( ~ID, ~Check, "I-1", "A1", "I-2", "A2", &quo