在R语言中如何生成列名与对应行值的拼接组合？

问题说明 #

现有如下结构的R数据框：

A   B   C   
X   1   0
Y   2   5

需将B、C两列的列名、对应行的A列值、单元格内的数值按顺序拼接，最终生成如下单列结果：

BX1
BY2
CX0
CY5

实现方法 #

方法1：基于tidyverse工具链（dplyr + tidyr） #

这种方法通过转置数据格式再拼接，逻辑清晰，适合日常数据处理流程：

# 先构建示例数据框
df <- data.frame(A = c("X", "Y"), B = c(1, 2), C = c(0, 5), stringsAsFactors = FALSE)

# 加载tidyverse包
library(tidyverse)

# 处理流程：转成长格式 → 拼接字符串 → 提取结果列
result <- df %>%
  pivot_longer(cols = -A, names_to = "col_name", values_to = "value") %>%
  mutate(combined = str_c(col_name, A, value)) %>%
  pull(combined)

# 查看结果
result

方法2：使用基础R（无需额外包） #

如果不想加载第三方包，用基础R的向量操作或循环就能实现：

# 构建示例数据框
df <- data.frame(A = c("X", "Y"), B = c(1, 2), C = c(0, 5), stringsAsFactors = FALSE)

# 筛选出需要处理的列（排除A列）
target_cols <- setdiff(colnames(df), "A")

# 循环拼接每一列的内容
result <- c()
for(col in target_cols){
  temp_str <- paste0(col, df$A, df[[col]])
  result <- c(result, temp_str)
}

# 查看结果
result

也可以用更高效的向量化写法替代循环：

result <- as.vector(outer(target_cols, 1:nrow(df), function(col, row_idx){
  paste0(col, df$A[row_idx], df[[col]][row_idx])
}))

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