r - 根据位置放置字符

Question

我想把字符 obovate 放在第二个位置

df <- data.frame(x = c("Antidesma obovate",
                       "Ardisia obovate", "Knema obovate", "Lauraceae obovate"))

我想要的输出

Antidesma
Ardisia
Knema
Lauraceae

我找到了一个主题来回答我的问题 ( Drop characters from string based on position )

但在这里我需要调用我想要删除的特定字符。到目前为止，我只知道使用 str_detect 立即更改名称，例如

df %>% mutate(x= ifelse(str_detect(x, "Antidesma obovate"), "Antidesma ", x)) %>% 

请问有什么建议吗？

Answer 1

我们这里不需要ifelse 或str_detect。相反，使用 str_remove 删除子字符串

library(dplyr)
library(stringr)
df %>% 
   mutate(x = str_remove(x, "\\s+obovate"))
          x
1 Antidesma
2   Ardisia
3     Knema
4 Lauraceae