R语言：如何将数据框中指定首尾列范围内的列合并为新列

嘿，这个问题我之前也踩过坑！df$first:df$last这种写法在R里根本不生效，因为冒号运算符只能处理数值序列，没法识别列名的范围。不过别担心，有两种简单的方法可以搞定这个动态列范围合并的需求：

方法一：用tidyverse（dplyr + stringr）实现（推荐） #

如果你习惯用tidyverse工具链，这个方法可读性很高：

library(dplyr)
library(stringr)

# 第一步：定位首尾列的索引位置
start_idx <- which(names(df) == "first")
end_idx <- which(names(df) == "last")

# 第二步：跨列合并文本，生成新列merged
df <- df %>%
  mutate(merged = str_c(across(start_idx:end_idx), collapse = " ", na.rm = TRUE))

细节说明： #

• across(start_idx:end_idx)会精准选中从first到last之间的所有列
• str_c比基础的paste更灵活，na.rm = TRUE可以自动忽略缺失值（避免合并结果出现NA）
• 如果你的列里有数值型数据，记得先转成字符型：可以在across里加as.character，比如across(start_idx:end_idx, as.character)

方法二：基础R实现（无需额外包） #

如果不想加载第三方包，用基础R的apply函数也能搞定：

# 第一步：获取需要合并的列索引范围
col_range <- which(names(df) %in% c("first", "last"))
cols_to_merge <- seq(col_range[1], col_range[2])

# 第二步：逐行合并指定列的文本
df$merged <- apply(df[, cols_to_merge], 1, function(row) {
  paste(row, collapse = " ", na.rm = TRUE)
})

细节说明： #

• apply(df[, cols_to_merge], 1, ...)表示按行（1代表行）处理选中的列
• 匿名函数里的paste用collapse指定分隔符，na.rm = TRUE同样处理缺失值

两种方法都能完美应对列数不固定的情况，只需要知道首尾列名就行啦！

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