Удалить все после последнего пространства с stringr

Question

У меня есть данные, что выглядит следующим образом:

df <- tribble(
    ~name, ~value, 
    "Jake Lake MLP", 10, 
    "Bay May CE", 5, 
    "Drake Cake Jr. DSF", 9.1, 
    "Sam Ram IR QQQZ", 1 
) 

Я хочу, чтобы обрезать все имена, так что они:

"Jake Lake", 
"Bay May", 
"Drake Cake Jr.", 
"Sam Ram IR" 

В основном удаление все после последнего пространство.

Я пробовал:

df %>% mutate(name = str_replace(name, "\\s.*$", "")) 

Но это не совсем то, что я хочу!

Answer 1

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

df %>% 
    mutate(name = sub("\\s+[^ ]+$", "", name)) 

Или же картина в str_replace

df %>% 
    mutate(name = str_replace(name, "\\s[^ ]+$", "")) 
# A tibble: 4 × 2 
#   name value 
#   <chr> <dbl> 
#1  Jake Lake 10.0 
#2  Bay May 5.0 
#3 Drake Cake Jr. 9.1 
#4  Sam Ram IR 1.0 

---

Узор указывает пространство (\\s), а затем один или более не пустого пространства (в противном случае он может \\S+) до конца строки и заменить его пустым "". В коде OP он был неспецифичным (.*).