如何在R中实现数据框局部转置及行转列格式转换？

你的原始数据属于典型的键值对存储结构，行转列操作可以直接用tidyr包的pivot_wider()函数实现，以下是完整可复现的操作流程：

1. 依赖包加载 #

加载tidyverse套件，同时包含你已经在使用的dplyr和本次需要的tidyr工具：

library(tidyverse)

2. 核心操作步骤 #

以下默认你的原始数据结构：

• 无分组标识列时，每N行对应一个独立Assay的所有参数
• 第一列列名为category，存储Sample ID、Assay Feature等分类标识
• 第二列列名为value，存储分类对应的数值内容

2.1 生成分组标识（无分组列时执行） #

如果没有标识同一Assay的分组列，按照每个Assay对应的行数N（即你最终输出的列数，示例中为9）生成唯一分组ID：

df <- df %>%
  # 9替换为你实际每个Assay对应的行数
  mutate(group_id = (row_number() - 1) %/% 9)

2.2 行转列核心代码 #

将category列的所有取值转换为列名，对应value的内容填充到对应位置：

df_wide <- df %>%
  pivot_wider(
    id_cols = group_id,
    names_from = category,
    values_from = value,
    # 存在同分类多值时添加本行，用分号合并多值
    values_fn = list(value = ~paste(., collapse = ";")),
    # 存在数值字符混合时添加本行，统一转字符避免报错
    values_transform = list(value = as.character)
  )

2.3 调整为目标宽表格式 #

按照你的需求拆分多值列、重命名列、调整列顺序：

final_df <- df_wide %>%
  # 拆分Assay Feature为两列，sep替换为你实际的分隔符（逗号、空格等）
  separate(`Assay Feature`, into = c("Assay Feature 1", "Assay Feature 2"), sep = ",") %>%
  # 重命名Sample ID为Assay ID
  rename(`Assay ID` = `Sample ID`) %>%
  # 按要求调整列顺序
  select(`Assay ID`, `Assay Feature 1`, `Assay Feature 2`, Measurement, `Molecule A`, `Molecule B`, `Concentration A`, `Concentration B`, Activity)

3. 注意事项 #

• 代码中的列名category、value需要替换为你实际的原始数据列名
• 拆分Assay Feature的分隔符需要根据你实际的存储格式调整，如果两列特征已经分存在Assay Feature 1、Assay Feature 2行中，可跳过separate步骤直接调整列顺序

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