如何通过tidyr在原数据框中结合列名与指定列值生成新列？

先明确你的目标数据框：

df <- data.frame(Col1 = LETTERS[1:4], Col2 = LETTERS[23:26], Col3 = c(1:4), col4 = c(100:103))

1. 能否用bind_cols合并原数据框与imap_dfr的结果？ #

当然可以。只要imap_dfr生成的结果和原数据框行数一致、行序未被打乱，bind_cols会按位置逐行拼接。

2. 如何确保行序一致？ #

• 常规操作：imap_dfr本身是按原数据框的行顺序逐行处理的，只要你在处理逻辑里没有做排序、过滤这类打乱行序的操作，直接用bind_cols(df, new_result)就能保证行一一对应。
• 稳妥兜底方案：给两个数据框都加上行索引，通过索引关联合并，彻底避免错位风险：

library(dplyr)
library(purrr)

# 给原数据框添加行号
df_with_id <- df %>% mutate(row_idx = row_number())

# 生成带行号的新列结果
new_col_df <- imap_dfr(df_with_id, function(row, idx) {
  tibble(row_idx = idx, NewCol = paste("Col1", row$Col1, "Col4", row$col4, sep = "_"))
})

# 通过行号合并，确保行序完全一致
final_df <- df_with_id %>% 
  left_join(new_col_df, by = "row_idx") %>% 
  select(-row_idx) # 移除临时行号列

3. 有没有类似unite的方法直接在原数据框生成新列？ #

有，而且比imap_dfr更简单——用dplyr::mutate结合paste就能直接在原数据框生成目标列，实现和unite一样的“原地加列”效果：

library(dplyr)

# 直接生成NewCol，无需额外数据框
df <- df %>% 
  mutate(NewCol = paste("Col1", Col1, "Col4", col4, sep = "_"))

运行后df会新增NewCol列，值就是Col1_A_Col4_100、Col1_B_Col4_101这类格式，完全符合需求。

如果一定要用tidyr的unite，也可以先构造列名+值的临时列再合并，但步骤稍繁琐：

library(tidyr)
library(dplyr)

df <- df %>% 
  mutate(
    col1_str = paste("Col1", Col1, sep = "_"),
    col4_str = paste("Col4", col4, sep = "_")
  ) %>% 
  unite(NewCol, col1_str, col4_str, sep = "_") %>% 
  select(-col1_str, -col4_str) # 移除临时列

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