data <- data.frame(c("1_a-b","2: b-c","3_c-d"))
colnames(data) <- "ABC"
if(any(grepl(":|_", data$ABC))){
data$ABC <- sub(".*[_:]\\s*", "", data$ABC)
}
data
ZGF0YSA8LSBkYXRhLmZyYW1lKGMoIjFfYS1iIiwiMjogYi1jIiwiM19jLWQiKSkKY29sbmFtZXMoZGF0YSkgPC0gIkFCQyIKaWYoYW55KGdyZXBsKCI6fF8iLCBkYXRhJEFCQykpKXsKICAgZGF0YSRBQkMgPC0gc3ViKCIuKltfOl1cXHMqIiwgIiIsIGRhdGEkQUJDKQp9IApkYXRh