如何在R中将基因长格式dataframe转为指定宽格式？是否需逐行处理？

不需要逐行迭代，使用tidyverse工具包的向量式操作就能高效完成转换，步骤如下：

1. 准备数据与依赖包 #

首先加载tidyverse包，并构造你的长格式数据（如果已有数据可跳过构造步骤）：

library(tidyverse)

# 构造原长格式数据
long_df <- tibble(
  Gene_name = c("IGHV1-11", "IGHV1-12", "IGHV1-15", "IGHV1-18", "IGHV1-19",
                "IGHV1-2", "IGHV1-11", "IGHV1-13", "IGHV1-16", "IGHV1-18"),
  Sample_name = c("sample_1", "sample_2", "sample_3", "sample_4", "sample_5",
                  "sample_6", "sample_7", "sample_8", "sample_9", "sample_10"),
  Gene_fraction = c(0.00057491, 0.0044843, 0.01253306, 0.00942854, 0.01747729,
                    0.00034495, 0.00103484, 0.01517765, 0.00758882, 0.00827872)
)

2. 处理样本后缀与补充新样本数据 #

目标宽格式中样本名称带有WT/MT后缀，且新增了sample_11MT，先定义后缀映射并补充数据：

# 定义样本与后缀的对应关系
sample_suffix <- tribble(
  ~Sample_name, ~Suffix,
  "sample_1", "WT",
  "sample_2", "WT",
  "sample_3", "WT",
  "sample_4", "MT",
  "sample_5", "WT",
  "sample_6", "WT",
  "sample_7", "MT",
  "sample_8", "WT",
  "sample_9", "MT",
  "sample_10", "MT",
  "sample_11", "MT"
)

# 合并后缀并生成新的样本名称
long_df_with_suffix <- long_df %>%
  left_join(sample_suffix, by = "Sample_name") %>%
  mutate(Sample_name_new = paste0(Sample_name, Suffix))

# 补充sample_11MT的数据
new_row <- tibble(
  Gene_name = "IGHV1-19",
  Sample_name = "sample_11",
  Gene_fraction = 0.04679775,
  Suffix = "MT",
  Sample_name_new = "sample_11MT"
)

long_df_complete <- bind_rows(long_df_with_suffix, new_row)

3. 转换为宽格式 #

使用pivot_wider完成长转宽，设置values_fill = 0自动填充缺失的基因分数为0：

wide_df <- long_df_complete %>%
  select(Sample_name_new, Gene_name, Gene_fraction) %>%
  pivot_wider(
    names_from = Gene_name,
    values_from = Gene_fraction,
    values_fill = 0
  ) %>%
  rename(Sample_name = Sample_name_new)

执行上述代码后，wide_df即为你需要的宽格式DataFrame。

关于逐行迭代的问题 #

完全不需要逐行迭代。R的核心优势是向量式操作，pivot_wider这类函数底层已做优化，处理速度远快于手动逐行循环；且逐行迭代代码冗余，容易出错，在数据量较大时效率极低。

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