R语言：如何筛选单逗号字符串并调整顺序、清理空格

1. 筛选仅含一个逗号的字符串 #

你之前用grep(",{1}", patterns)无效，是因为这个正则只要字符串里存在至少一个逗号就会匹配，完全没限制逗号的数量。要精准筛选恰好只有一个逗号的字符串，得用限定整个字符串结构的正则：

# 筛选仅含一个逗号的元素
filtered <- patterns[grepl("^[^,]+,[^,]+$", patterns)]

正则逻辑：

• ^ 和 $ 分别锁定字符串开头和结尾，确保整个串都被检查
• [^,]+ 匹配任意非逗号字符（至少一个），分别对应逗号前后的内容
• 中间的, 就是唯一允许存在的逗号

2. 重新排序并清理格式 #

接下来把逗号后的内容移到前面，同时去掉逗号和所有多余空格，用sub配合正则分组就能实现：

final_output <- sub("^\\s*(.+?)\\s*,\\s*(.+?)\\s*$", "\\2 \\1", filtered)

正则逻辑：

• ^\\s* 和 \\s*$ 匹配开头、结尾的任意空格，后续会被自动剔除
• (.+?) 是两个非贪婪分组，分别捕获逗号前后的核心内容
• \\s*,\\s* 匹配逗号及前后的任意空格，替换时直接丢弃
• \\2 \\1 把第二个分组（逗号后内容）移到前面，第一个分组（逗号前内容）放后面，中间用单个空格分隔

完整代码及结果 #

把两步整合后运行：

patterns <- c("Athens, Greece", "New York, New York, USA", "Georgia,USA", "Southern California,    USA ")

# 筛选仅含一个逗号的元素
filtered <- patterns[grepl("^[^,]+,[^,]+$", patterns)]

# 调整格式并清理空格
final_output <- sub("^\\s*(.+?)\\s*,\\s*(.+?)\\s*$", "\\2 \\1", filtered)

# 查看结果
final_output

输出结果：

[1] "Greece Athens"              "USA Georgia"                "USA Southern California"

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