用 stringr 删除最后一个空格后的所有内容

Question

This question already has answers here:

Regular expression in R to remove the part of a string after the last space

(2 个回答)


4年前关闭。




我有看起来像这样的数据:

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.*$", ""))

但这不是我想要的!

最佳答案

我们可以使用 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 的代码中，它是非特定的( .* )。

关于用 stringr 删除最后一个空格后的所有内容，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/40142682/

上一篇：twig - 将 include 的内容保存到变量中

下一篇：matlab - Octave:用于将绘图打印为 eps 的动态文件名

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 的代码中，它是非特定的( .* )。