Как удалить строку перед последним конкретным символом

Question

Скажем, у меня есть такая строка

"Delete:Delete:Delete:Keep"

Как мне это почистить, чтобы остался только "Сохранить".Кроме того, как я могу применить это ко всему столбцу.

Я хочу сохранить строку после последнего двоеточия, в одной ячейке может быть от 1 до 4 двоеточий

Спасибо

Answer 1

Вы также можете использовать strsplit

# d is your column
d <- c("Delete:Delete:Delete:Keep","Delete:Delete:Delete:Keep","Delete:Delete:Delete:Keep")

sapply(d, function(x) tail(unlist(strsplit(x, ":")), 1), USE.NAMES = F)
[1] "Keep" "Keep" "Keep"

Answer 2

альтернативно,

x = "Delete:Delete:Delete:Keep"

sub(".*:(?=[^:]+$)", "", x, perl = TRUE)

или

sub(".*?(?=[^:]+$)", "", x, perl = TRUE)

---

понятия регулярного выражения:

ленивый квантификатор, позитивный взгляд

Answer 3

Вы можете использовать

sub(".*:(.*)", "\\1", "Delete:Delete:Delete:Keep")
# [1] "Keep"

и аналогично для столбца:

df$col <- sub(".*:(.*)", "\\1", df$col)

Вот как это работает: .* соответствует всему до последнего : из-за жадного соответствия,Затем (.*) захватывает все после последнего :, то есть это становится нашим окончательным значением.