R语言：如何有条件地移除以Home Run开头的观测值末尾字符

你可以通过正则表达式配合gsub（base R）或str_replace（tidyverse）实现需求，仅修改以"Home Run"开头的字符串，其他内容保持不变：

方法一：使用base R的gsub函数 #

利用正则表达式匹配以"Home Run"开头的完整字符串，将其替换为"Home Run"：

pitchResult <- c("strike", "Home Run on 368.96 ft fly ball", "Ground out","Home Run on a 415.0 ft fly ball", "Home Run on a 401.77 ft line drive", "ball")

# 执行替换
pitchResult_clean <- gsub("^Home Run.*", "Home Run", pitchResult)

# 查看结果
pitchResult_clean

正则说明：

• ^：匹配字符串的起始位置
• Home Run：指定要匹配的起始文本
• .*：匹配后续任意长度的任意字符
• 整个表达式会把所有以"Home Run"开头的字符串完整匹配，替换为"Home Run"，非匹配项保持原样。

方法二：使用tidyverse的stringr::str_replace #

如果你习惯使用tidyverse生态，stringr包的str_replace语法更直观，效果一致：

library(stringr)

pitchResult_clean <- str_replace(pitchResult, "^Home Run.*", "Home Run")

处理后的结果：

# [1] "strike"    "Home Run"  "Ground out" "Home Run"  "Home Run"  "ball"

内容的提问来源于stack exchange，提问作者user19422662