R语言字符串列表处理求助：按|分割并移除Score相关元素

Got it, let's work through this problem together. I see two key issues with your current code, and we'll fix them step by step:

1. Fix the strsplit behavior #

Your original strsplit(x, split='|') doesn't work as expected because the vertical bar | is a special character in regular expressions (it acts as an "OR" operator). Instead of splitting on the literal |, it's splitting every single character in the string.

To fix this, you have two straightforward options:

• Escape the | with two backslashes to treat it as a literal: split='\\|'
• Or use fixed=TRUE to force strsplit to use the pattern as a plain string: split='|', fixed=TRUE

2. Filter out the (Score: =xxx) entries #

Once you split the string into parts, you need to remove any element that matches the (Score: =xxx) pattern (where xxx can be any characters/numbers). We'll use grepl() to detect these entries, then exclude them from the result.

Full Working Code #

Here's a complete example with sample input to demonstrate how it all comes together:

# Sample input list (matching your use case)
List <- c(
  "Apple|Banana|(Score: =85)|Cherry",
  "Dog|(Score: =92)|Cat|Elephant",
  "Red|Blue|Green"
)

# Process each string in the list
resultList <- lapply(List, function(x) {
  # Split the string using literal | as delimiter
  split_parts <- strsplit(x, split='\\|')[[1]]
  # Filter out parts that match the (Score: =xxx) pattern
  filtered_parts <- split_parts[!grepl("\\(Score: =.*\\)", split_parts)]
  # Return the cleaned vector of parts
  filtered_parts
})

# Check the result
print(resultList)

Breakdown of the code: #

• strsplit(x, split='\\|')[[1]]: Splits each string into a vector of parts. We use [[1]] because strsplit returns a list, and we want the actual vector of split elements.
• !grepl("\\(Score: =.*\\)", split_parts): The grepl function checks each part against the regex pattern \\(Score: =.*\\) (we escape ( and ) because they're also special regex characters). The ! inverts the match, so we keep all parts that don't fit the score format.

Optional: Join filtered parts back into a single string #

If you want the output to be a string (instead of a vector) with the remaining elements separated by |, just add a paste() call at the end:

resultList <- lapply(List, function(x) {
  split_parts <- strsplit(x, split='\\|')[[1]]
  filtered_parts <- split_parts[!grepl("\\(Score: =.*\\)", split_parts)]
  paste(filtered_parts, collapse='|')
})

内容的提问来源于stack exchange，提问作者C. DAVID