dataframe <- data.frame(ID = c('1234567_GSM00298873', '1238416_GSM90473673', '98377829'))
dataframe$ID <- gsub("[0-9]+_", "", dataframe$ID)
dataframe
ZGF0YWZyYW1lIDwtIGRhdGEuZnJhbWUoSUQgPSBjKCcxMjM0NTY3X0dTTTAwMjk4ODczJywgJzEyMzg0MTZfR1NNOTA0NzM2NzMnLCAnOTgzNzc4MjknKSkKZGF0YWZyYW1lJElEIDwtIGdzdWIoIlswLTldK18iLCAiIiwgZGF0YWZyYW1lJElEKQpkYXRhZnJhbWU=