R语言街道缩写转全名：报错原因及适配方案咨询

问题背景 #

现有数据框：

df <- data.frame(address = c('123 Harrison St', '456 Circle Dr.', '345 Round Blvd'))

需求：将地址中的街道类型缩写转换为全称，同时适配abbr变量中存在但数据框未包含的缩写（如Ln、Ave等），预期输出：

'123 Harrison Street'
'456 Circle Drive'
'345 Round Boulevard'

尝试以下代码时触发警告**“替换长度>1，仅使用第一个元素”**：

abbr <- c('St'= 'Street', 'Dr' = 'Drive', 'Blvd' = 'Boulevard', 'Ln' = 'Lane')
pattern <- paste0("\\b(", paste0(abbr, collapse = "|"), ")\\b")
df$address <- gsub(pattern, abbr, df$address, ignore.case = TRUE)

问题1：为何abbr包含正确缩写仍触发警告？ #

有两个核心原因：

1. gsub参数逻辑错误：gsub的replacement参数仅接受单个字符串或与输入向量等长的字符串向量，你传入了长度为4的abbr向量，它只会取第一个元素（Street）替换所有匹配项，因此触发“替换长度>1”的警告。
2. 匹配模式构建错误：paste0(abbr, collapse = "|")取的是abbr的值（Street、Drive等全称），而非缩写键（St、Dr等），导致正则模式根本匹配不到原地址里的缩写，替换逻辑完全失效。

问题2：如何修改代码适配abbr中存在但df未包含的缩写？ #

推荐两种方案：

方案1：使用stringr包（简洁高效）

stringr的str_replace_all支持直接用命名向量作为替换规则，自动对应缩写与全称，同时能处理大小写、缩写后带点的情况：

library(stringr)

abbr <- c('St'= 'Street', 'Dr' = 'Drive', 'Blvd' = 'Boulevard', 'Ln' = 'Lane')
# 构建匹配模式：匹配缩写，可选结尾的点，忽略大小写
pattern <- str_c("\\b(", str_c(names(abbr), collapse = "|"), ")\\.?\\b")
df$address <- str_replace_all(df$address, regex(pattern, ignore_case = TRUE), abbr)

• names(abbr)提取到的是缩写键（St、Dr等），这才是需要匹配的目标内容
• \\.?适配缩写后带点的情况（如Dr.）
• 即使abbr中有df未包含的缩写（如Ln），因为匹配不到对应内容，不会产生任何影响，完美适配需求

方案2：基础R循环实现（无依赖）

如果不想引入第三方包，可以循环遍历每个缩写，逐个替换：

abbr <- c('St'= 'Street', 'Dr' = 'Drive', 'Blvd' = 'Boulevard', 'Ln' = 'Lane')

for (abbr_key in names(abbr)) {
  # 构建匹配模式，处理可选的点和大小写
  pattern <- paste0("\\b", abbr_key, "\\.?\\b")
  df$address <- gsub(pattern, abbr[abbr_key], df$address, ignore.case = TRUE)
}

循环会依次处理每个缩写，不存在的缩写因无匹配内容，不会对数据产生修改，同样满足适配需求。

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