I HAVE A DATAFRAME (GG) LIKE THIS
structure(list(X = 1:31, V1 = c("1", "VXM", "100", "B64: 1874",
"B65: 1441", "B67: 2425", "DP1: 22535", "DP10: 22955", "DP11: 20693",
"DP13: 21589", "DP14: 22655", "DP15: 21489", "DP17: 22391", "DP18: 16550",
"DP19: 20992", "DP20: 21202", "DP28: 19591", "DP3: 22078", "DP5: 22407",
"DP6: 21872", "DP9: 22359", "DQ4: 18678", "DQ5: 19178", "DQ6: 18078",
"DQ7: 16899", "DQ8: 17078", "DQ9: 18956", "DR1: 8391", "DR103: 21582",
"DR11: 17012", "DR12: 15973"), V2 = c("2", "VXM", "100", "B44: 6545",
"B45: 8738", "B76: 6806", "B82: 6222", "Cw15: 2319", "Cw2: 2228",
"Cw5: 1701", "DQ2: 2425", "DQ5: 11401", "DQ6: 11042", "DQ7: 8093",
"DQ8: 11300", "DQ9: 11786", "DR1: 3263", "DR10: 3248", "DR103: 3315",
"DR9: 3184", "DRw51: 3931", "DRw53: 7768", "", "", "", "", "",
"", "", "", ""), V3 = c("3", "VXM", "100", "B27: 1175", "B42: 1275",
"B56: 1482", "B67: 1792", "B7: 1468", "B81: 1204", "B82: 1475",
"DR1: 23233", "DR10: 17981", "DR103: 20807", "DR11: 1121", "DR13: 2857",
"DR14: 7660", "DR15: 11318", "DR16: 8726", "DR17: 5769", "DR18: 4492",
"DR4: 12380", "DR9: 15618", "DRw51: 14567", "DRw52: 12284", "DRw53: 12040",
"", "", "", "", "", ""), V4 = c("4", "VXM", "100", "B18: 7257",
"B27: 6911", "B35: 9015", "B39: 8908", "B41: 8576", "B42: 12329",
"B45: 8647", "B46: 2991", "B48: 5794", "B50: 7332", "B54: 13692",
"B55: 11903", "B56: 12477", "B57: 2780", "B58: 2583", "B60: 6629",
"B61: 6550", "B62: 6471", "B63: 2279", "B64: 6873", "B65: 5904",
"B67: 13360", "B7: 11626", "B71: 8483", "B72: 6354", "B73: 1282",
"B75: 6502", "B76: 6181"), V5 = c("5", "VXM", "100", "B18: 7257",
"B27: 6911", "B35: 9015", "B39: 8908", "B41: 8576", "B42: 12329",
"B45: 8647", "B46: 2991", "B48: 5794", "B50: 7332", "B54: 13692",
"B55: 11903", "B56: 12477", "B57: 2780", "B58: 2583", "B60: 6629",
"B61: 6550", "B62: 6471", "B63: 2279", "B64: 6873", "B65: 5904",
"B67: 13360", "B7: 11626", "B71: 8483", "B72: 6354", "B73: 1282",
"B75: 6502", "B76: 6181"), V6 = c("6", "VXM", "100", "B18: 21169",
"B27: 17366", "B35: 21065", "B39: 23322", "B41: 22525", "B42: 20364",
"B45: 22910", "B48: 18180", "B49: 8148", "B50: 24792", "B52: 2056",
"B54: 21863", "B55: 22060", "B56: 23214", "B60: 19029", "B61: 20255",
"B62: 23124", "B64: 18677", "B65: 6993", "B67: 21535", "B7: 19924",
"B71: 23124", "B72: 22792", "B75: 19055", "B76: 23722", "B78: 18453",
"B8: 24459", "B81: 13510"), V7 = c("7", "VXM", "100", "B18: 1545",
"B27: 1493", "B35: 1002", "B39: 1259", "B41: 2074", "B42: 1305",
"B45: 2386", "B48: 8224", "B50: 3349", "B55: 1086", "B60: 3492",
"B61: 3017", "B62: 1390", "B64: 1729", "B65: 1644", "B67: 1570",
"B7: 3217", "B71: 2759", "B72: 2535", "B75: 2093", "B76: 2952",
"B8: 1715", "B81: 3005", "Bw6: 1", "DQ5: 4781", "DQ6: 5875",
"DR1: 8608", "DR10: 9046"), V8 = c("8", "VXM", "100", "B13: 4706",
"B18: 1095", "B27: 3732", "B35: 1219", "B39: 2055", "B41: 2452",
"B42: 2007", "B45: 1324", "B47: 2280", "B48: 3769", "B50: 1850",
"B54: 1080", "B55: 1679", "B56: 1190", "B60: 4300", "B61: 3823",
"B62: 1430", "B67: 2230", "B7: 4264", "B71: 1485", "B72: 1417",
"B73: 1814", "B75: 1004", "B76: 1933", "B8: 1429", "B81: 3777",
"Bw6: 1", "DP10: 2639")), class = "data.frame", row.names = c(NA,
-31L))
I WANT TO HAVE A OUTPUT LIKE THIS
structure(list(X = c("", "", "", "B64", "DQ8", "B67"), X.1 = c("1",
"VM", "100", "B64: 1874", "DQ8: 17078", "B67: 2425"), V2 = c("2",
"VM", "100", NA, "DQ8: 11300", NA), V3 = c("3", "VM", "100",
NA, NA, "B67: 1792"), V4 = c("4", "VM", "100", "B64: 6873", NA,
"B67: 13360"), V5 = c("5", "VM", "100", "B64: 6873", NA, "B67: 13360"
), V6 = c("6", "VM", "100", "B64: 18677", NA, "B67: 21535"),
V7 = c("7", "VM", "100", "B64: 1729", NA, "B67: 1570"), V8 = c("8",
"VM", "100", "B67: 2230", NA, "B27: 3732")), class = "data.frame", row.names = c(NA,
-6L))
I WANT A MATRIX AS OUTPUT WHICH GIVES PATTERN NAME AS ROW NAME THAT GIVES WHOLE CELL VALUE WHEN MATCHED WITH PATTERN.
GG <- as.data.frame(ifelse(str_detect(GG[1:100,1:1000], "A68|A69|DQ8"), GG[1:100,], "NA"))
I have used above code but doesn’t work for desired output.