I have a dataframe data like below:
data
data <- structure(list(geneid = c("Gene1", "Gene2", "Gene3", "Gene3&quo