Удалить все символы, отличные от определенных символов (то есть сохранить выборку)

Question

Я хотел бы удалить все символы, которые не соответствуют определенному набору символов.

Например, я хотел бы удалить все символы, отличные от символа звезды (*), то есть оставить только звезды.

Чтобы удалить их, я использую следующее:

s <- "sdf*ses**e"
stringr::str_remove_all(s, "\\*")

Но как сохранить только звезды? Я пробовал разные вещи (str_remove_all(s, "!\\*"), str_remove_all(s, "-\\*")), но безуспешно.

Answer 1

Вам нужно было бы отрицать звезды, используя круговое отражение

stringr::str_remove_all(s, "[^\\*]")

Еще одна возможность с использованием базы R

gsub("[^*]","",s)

Answer 2

stringr::str_remove_all(s, "[^\\*]")