R语言实现标题短语按指定最大长度拆分并单独放置Last段

解决方案代码 #

可以自定义一个函数来处理列名，实现按指定长度换行并保留Last = ...单独一行的需求：

wrap_colname <- function(colname, max_len = 18) {
  # 拆分描述文本与Last部分
  split_parts <- strsplit(colname, "\nLast = ")[[1]]
  desc_text <- split_parts[1]
  last_val <- split_parts[2]
  
  # 拆分单词，适配括号格式
  words <- strsplit(desc_text, "(?<=\\s)|(?<=\\()|(?=\\))", perl = TRUE)[[1]]
  words <- words[words != ""]
  
  # 逐行拼接，控制每行长度
  lines <- character(0)
  current_line <- ""
  
  for (word in words) {
    if (nchar(paste(current_line, word, sep = "")) <= max_len) {
      current_line <- paste(current_line, word, sep = "")
    } else {
      lines <- c(lines, trimws(current_line))
      current_line <- word
    }
  }
  lines <- c(lines, trimws(current_line))
  
  # 拼接最终结果
  paste(c(lines, paste0("Last = ", last_val)), collapse = "\n")
}

# 测试示例列名
colnames_example <- c(
  "Goods excluding food purchased from stores and energy\nLast = 1.8",
  "Books and reading material (excluding textbooks)\nLast = 136.1",
  "Spectator entertainment (excluding video and audio subscription services)\nLast = -13.5"
)

# 批量处理列名
sapply(colnames_example, wrap_colname, max_len = 18)

代码说明 #

1. 拆分列名：利用所有列名都包含\nLast = 的特点，将原列名拆分为描述文本和数值部分，确保Last相关内容后续能单独成行。
2. 适配特殊格式：通过正则表达式拆分单词时，兼顾括号的完整性，避免出现(exclud这类截断括号的情况。
3. 控制行长度：逐词拼接文本，每次检查当前行加新单词后的长度，超过最大值则换行，保证每行长度不超过指定的max_len。
4. 批量处理：用sapply可以快速批量处理所有列名，直接替换数据框的列名即可：colnames(your_dataframe) <- sapply(colnames(your_dataframe), wrap_colname, max_len = 18)

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