I HAVE A DATAFRAME (GG) LIKE THIS

enter image description here

I WANT TO HAVE A OUTPUT LIKE THIS

enter image description here

I HAVE 1000 COLUMNS AND 100 ROWS FOR THIS DATASET. I HAVE TRIED THE STRDETECT IN R.

GG <- as.data.frame(ifelse(str_detect(GG[1:100,1:1000], “A68|A69|DQ8”), GG[1:100,], “NA”))
BUT IT IS NOT WORKING FOR DESIRED OUTPUT. I WANT A MATRIX AS OUTPUT WHICH GIVES PATTERN NAME AS ROW NAME TAHT GIVES WHOLE CELL VALUE WHEN MATCHED WITH PATTERN.