R语言：将Cust.Name中匹配City的内容替换为空的实现问题

你的问题核心在于**gsub默认会将pattern向量的每个元素循环应用到x向量的所有元素上**，而不是按行一一对应匹配替换。所以需要用能处理逐元素配对的函数来实现需求，同时替换后还要清理多余的空格。

解决方案代码 #

可以用mapply来实现逐行的一一匹配替换，再结合trimws去掉替换后产生的前后空格：

# 你的初始数据准备代码
Cust.Name <- as.data.frame(c("Eric Lee", "Mendham Middle School", "John Doe", "Johnson Elementary"))
colnames(Cust.Name) <- "Cust.Name"
City <- as.data.frame(c("Durham", "Mendham", "Elon", "Johnson"))
colnames(City) <- "City"
Customer = cbind(Cust.Name , City)
Customer$Cust.Name = as.character(Customer$Cust.Name)
Customer$City = as.character(Customer$City)

# 正确的逐行替换代码
Customer$Cust.Name <- mapply(function(name, city) {
  trimws(gsub(pattern = city, replacement = "", x = name))
}, Customer$Cust.Name, Customer$City)

# 查看结果
Customer$Cust.Name

运行结果 #

执行后会得到你期望的输出：

[1] "Eric Lee"       "Middle School"  "John Doe"       "Elementary"

补充说明 #

• mapply会把Customer$Cust.Name和Customer$City的对应元素逐个传入自定义函数，实现精准的逐行匹配替换。
• trimws的作用是去除替换后字符串前后的多余空格（比如替换"Mendham"后会留下开头的空格，用这个函数可以清理掉）。

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