如何在R语言中将单个字符串列与多列字符串逐行拼接

问题分析 #

你需要将df1的first_column与后续每一列逐行拼接，再将这些拼接结果作为df2的列。原代码的问题在于paste会把所有列的拼接结果合并成一个长向量，无法生成多列的目标数据框。

基础R实现 #

# 提取第一列作为拼接前缀
prefix <- df1$first_column
# 批量处理后续每一列，逐行拼接
processed_cols <- lapply(df1[, -1], function(col) paste(prefix, col))
# 转换为数据框并设置列名
df2 <- as.data.frame(processed_cols)
colnames(df2) <- colnames(df1)[1:(ncol(df1)-1)]

tidyverse实现（dplyr） #

如果你习惯使用tidyverse工具链，可以用更简洁的代码：

library(dplyr)

df2 <- df1 %>%
  # 对除first_column外的所有列，逐行与first_column拼接
  mutate(across(-first_column, ~paste(first_column, .x))) %>%
  # 移除原first_column
  select(-first_column) %>%
  # 重命名列以匹配目标格式
  rename_with(~colnames(df1)[1:length(.)])

验证结果 #

运行上述代码后，df2的每一列对应df1中first_column与对应列的逐行拼接结果：

• df2$first_column = df1$first_column + df1$second_column
• df2$second_column = df1$first_column + df1$third_column
• df2$third_column = df1$first_column + df1$fourth_column

注：你提供的示例df2中第3、4行的前缀错误地写成了B，实际按逐行逻辑应该是C和D，上述代码会生成符合逐行拼接规则的正确结果。

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