R语言中从列名提取值插入新行的实现问题

你的问题核心在于原代码的if-else是对整个列名向量做判断，而非逐个列提取对应值，且硬编码判断浓度值的方式不够灵活。下面用正则提取的方式批量处理列名，同时完成两行的插入：

步骤说明 #

1. 从列名中批量提取化合物名称（compound）和浓度值（concentration）
2. 将提取出的信息构造成两行数据
3. 添加到原数据框中并设置行名

完整代码（推荐用stringr包简化操作） #

# 先安装包（首次运行需要）：install.packages("stringr")
library(stringr)

# 拆分列名，提取关键信息
col_parts <- str_split(colnames(df), "_", simplify = TRUE)
compound_vals <- col_parts[, 2]  # 取拆分后的第2段作为化合物名称
concentration_vals <- as.numeric(col_parts[, 3])  # 取第3段转成数值型浓度值

# 构造要插入的两行数据
new_rows <- data.frame(
  t(compound_vals),
  t(concentration_vals),
  row.names = c("compound", "concentration")
)
colnames(new_rows) <- colnames(df)  # 对齐原数据框列名

# 把新行追加到原数据框
df <- rbind(df, new_rows)

代码解释 #

• str_split(..., simplify = TRUE)：把每个列名按下划线拆分成矩阵，比如"b1_BAcid_20_494"会拆成["b1", "BAcid", "20", "494"]，直接通过列索引就能批量提取目标信息
• t()：将提取到的列向量转置为行，匹配原数据框的行结构
• as.numeric()：把提取到的浓度字符串转成数值型，方便后续分析计算

Base R 替代版本（无需额外包） #

# 用base R拆分列名
col_parts <- do.call(rbind, strsplit(colnames(df), "_"))
compound_vals <- col_parts[, 2]
concentration_vals <- as.numeric(col_parts[, 3])

# 构造新行
new_rows <- rbind(
  setNames(as.list(compound_vals), colnames(df)),
  setNames(as.list(concentration_vals), colnames(df))
)
rownames(new_rows) <- c("compound", "concentration")

# 合并到原数据框
df <- rbind(df, new_rows)

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