如何使用R语言转换表格：生成以物种为列的Total汇总表

嘿，我来帮你搞定这个R语言的表格格式转换问题！你需要把原始的长格式基因数据，转换成以GeneName为行、物种名称为列、对应值取Total列的宽格式表格，下面是两种常用的实现方法：

1. 先构造原始数据框 #

首先我们先把你提供的表格转换成R能处理的数据框：

original_df <- data.frame(
  GeneID = c(1234, 5678, 9104),
  GeneName = c("FGF1", "FGF1", "FGF1"),
  Species = c("Human", "Mouse", "Chicken"),
  Paralogues = c(4, 2, 3),
  Domains = c(2, 1, 0),
  Total = c(6, 3, 3)
)

2. 推荐方法：使用tidyverse的pivot_wider #

这是目前R中处理宽长格式转换最直观灵活的方式，属于tidyverse生态的一部分：

# 如果还没安装tidyverse，先执行这行
# install.packages("tidyverse")
library(tidyverse)

# 转换格式：先筛选需要的列，再转宽
wide_df <- original_df %>%
  select(GeneName, Species, Total) %>%  # 只保留转换需要的三列，避免冗余
  pivot_wider(
    names_from = Species,  # 用Species列的内容作为新列名
    values_from = Total    # 用Total列的内容填充新列对应位置
  )

# 查看转换后的结果
print(wide_df)

执行后会得到你想要的格式：

# A tibble: 1 × 4
  GeneName Human Mouse Chicken
  <chr>    <dbl> <dbl>   <dbl>
1 FGF1         6     3       3

3. 备选方法：Base R的reshape函数 #

如果你不想加载额外包，也可以用R基础包的reshape函数实现：

# 基础R转换
wide_df_base <- reshape(
  original_df,
  idvar = "GeneName",    # 指定行标识符
  timevar = "Species",   # 指定列名来源的列
  direction = "wide",    # 转换为宽格式
  v.names = "Total"      # 指定填充值的列
)

# 去掉列名的"Total."前缀，让格式更符合要求
colnames(wide_df_base) <- gsub("Total\\.", "", colnames(wide_df_base))

print(wide_df_base)

这个方法同样能得到目标格式的表格，适合偏好基础R语法的场景。

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