在R语言中按字符限制拆分字符串并保留剩余词至新变量

Got it, let's sort this out for you! Your existing gsub code only grabs the truncated first segment, but we need a way to extract both the valid first part (≤X characters, ends with a whole word) and the remaining words in one pass. Here's a complete, reusable R solution that handles all your example cases perfectly:

Step 1: Custom Function Implementation #

We'll use the stringr package (part of the tidyverse) for clean regex matching. This function takes a vector of strings and your max length X, then returns a data frame with the original string, valid first segment, and remaining words:

library(stringr)

split_string <- function(str_vec, max_len) {
  # Build regex pattern to capture two groups: valid first segment + remaining text
  pattern <- paste0(
    "^(.{1,", max_len, "})(?<= |$)",  # Group 1: Up to max_len chars, ends with space or string end
    "(.*)"                            # Group 2: All remaining characters after Group 1
  )
  
  # Match pattern against each string in the input vector
  matches <- str_match(str_vec, pattern)
  
  # Clean up results: handle cases where no remaining words exist
  first_segment <- ifelse(is.na(matches[, 2]), str_vec, matches[, 2])
  remaining_words <- trimws(matches[, 3])  # Trim leading whitespace from remaining text
  
  # Return structured output
  data.frame(
    original_string = str_vec,
    valid_first_segment = first_segment,
    remaining_words = ifelse(remaining_words == "", NA, remaining_words),
    stringsAsFactors = FALSE
  )
}

Step 2: Test with Your Examples #

Let's test this function with your sample strings where X=14:

# Test input strings
test_strings <- c(
  "XOVEW VJIEW NI",
  "XOVEW VJIEW NIGOI",
  "XOVEW VJIEWNIGOI"
)

# Run the function
result <- split_string(test_strings, max_len = 14)

# View the output
print(result)

Output: #

original_string valid_first_segment remaining_words
1     XOVEW VJIEW NI     XOVEW VJIEW NI             <NA>
2 XOVEW VJIEW NIGOI     XOVEW VJIEW          NIGOI
3  XOVEW VJIEWNIGOI          XOVEW     VJIEWNIGOI

How It Works #

• Regex Breakdown: The pattern uses a positive lookbehind (?<= |$) to ensure the first segment ends either with a space (so we don't split mid-word) or the end of the string (if the whole string fits within X characters).
• Handling Edge Cases: If the entire string is ≤X characters, remaining_words is set to NA (you can change this to an empty string if preferred by removing the ifelse).
• Vectorized: The function works on entire string vectors, so you can process multiple inputs at once.

If you don't want to use the tidyverse, you can adapt this with base R's regexec and regmatches functions, but stringr makes the code much cleaner and easier to read.

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