I have a large dataset like the example:
Sym <- as.data.frame(c(\'PIK3CA\', \'BRAF\', \'TP53\', \'ERB2\', \'MBD5\', \'PIK3CA\', \'BRCA\', \'ABC\'