R语言中转置DataFrame：避免数值转字符的最优方法

问题说明 #

现有如下数据创建代码：

ID<-c("A1", "A2", "A3", "A4", "A5")  
x<-c(0,1,2,1,1)
y<-c(2,1,1,1,1)
z<-c(0,1,1,0,0)
mydata<-data.frame(ID,x,y,z)

需对该数据框执行列转行（转置）操作，要求：

• 不将数值型数据转换为字符型
• 无报错
• 适配约1000列、50行的大数据量，采用最优实现方法

最优实现方案 #

针对大数据量场景，推荐以下两种高效、类型安全的方案：

方案1：使用data.table（效率最优） #

data.table的转置操作速度远快于基础R工具，且能自动保留各列数据类型，适合超大数据量处理：

# 安装并加载包
install.packages("data.table")
library(data.table)

# 转换为data.table格式
dt <- as.data.table(mydata)

# 执行转置：原ID列值作为新数据框的列名，原列名作为新的标识列
transposed_dt <- transpose(dt, keep.names = "Variable", make.names = "ID")

# 查看结果及数据类型
str(transposed_dt)

方案2：使用tidyverse工具链（可读性强） #

若习惯tidyverse生态，可通过pivot_longer+pivot_wider组合实现转置，全程保留数据类型：

# 安装并加载包
install.packages("tidyverse")
library(tidyverse)

# 先宽转长，再长转宽完成转置
transposed_df <- mydata %>%
  pivot_longer(cols = -ID, names_to = "Variable", values_to = "Value") %>%
  pivot_wider(names_from = ID, values_from = Value)

# 查看结果及数据类型
str(transposed_df)

避坑提示 #

不要使用基础R的t()函数：该函数会将数据框转为矩阵，而矩阵仅支持单一数据类型，若原数据包含字符型列（如ID），所有数值会被强制转为字符型，完全不符合需求。

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