如何在R语言中仅当字符串包含多个“&”时，替换除最后一个外的所有“ & ”为“,”

Nice question! This is a classic scenario where regular expression lookaheads shine—they let you target only the & separators that aren't the last one, no matter how many groups you have. Here are a few robust, scalable solutions in R:

Base R with Regular Expressions #

We can use gsub() with a positive lookahead assertion to target only non-final & separators. This approach works without hardcoding group counts:

problem <- c("GROUP 1", "GROUP 1 & GROUP 2", "GROUP 1 & GROUP 2 & GROUP 3", "GROUP 1 & GROUP 2 & GROUP 3 & GROUP 4")

# Base R solution using positive lookahead regex
solution_base <- gsub(" & (?=.* & )", ", ", problem, perl = TRUE)
solution_base

Regex Breakdown: #

• " & ": Matches the exact separator we want to replace
• (?=.* & ): A positive lookahead that checks if there's at least one more & somewhere after the current match. This ensures we only replace separators that aren't the final one.
• perl = TRUE: Required because base R's default regex engine doesn't support lookahead assertions.

Output:

[1] "GROUP 1"                          "GROUP 1 & GROUP 2"               
[3] "GROUP 1, GROUP 2 & GROUP 3"       "GROUP 1, GROUP 2, GROUP 3 & GROUP 4"

stringr Package Approach #

If you prefer the stringr ecosystem, the same regex works without needing perl = TRUE (stringr uses Perl-compatible regex by default):

library(stringr)

# stringr solution with the same logic
solution_stringr <- str_replace_all(problem, " & (?=.* & )", ", ")
solution_stringr

This will produce identical output to the base R method.

Alternative Split-and-Recombine Method #

If regular expressions feel intimidating, you can split the string into parts, then recombine them with the desired separators. This is more verbose but easier to read for beginners:

# Split each string, then recombine conditionally
solution_split <- sapply(problem, function(x) {
  parts <- str_split(x, " & ", simplify = TRUE)[1,]
  if (length(parts) <= 2) {
    # Keep original if 1 or 2 groups
    x
  } else {
    # Combine first n-1 groups with commas, then add final group with &
    paste(paste(parts[-length(parts)], collapse = ", "), parts[length(parts)], sep = " & ")
  }
}, USE.NAMES = FALSE)

solution_split

Test with Edge Cases #

Both methods scale to any number of groups. For example, a 5-group string:

test_case <- "GROUP 1 & GROUP 2 & GROUP 3 & GROUP 4 & GROUP 5"
str_replace_all(test_case, " & (?=.* & )", ", ")
# Output: "GROUP 1, GROUP 2, GROUP 3, GROUP 4 & GROUP 5"

内容的提问来源于stack exchange，提问作者J.Sabree