r string cleaning , retain everything before the last underscore

Question

I am working with a dataset that has column with some underscores. There is a patter to it but they are different patterns, as shown below

  ID     Col1
  1333