remove suffix with pattern in R dataframe