R语言数据框行列转置：以原首列为新列名的实现问题

Got it, let's sort out this transpose problem for your large dataframe—no brute force needed! The issue with as.data.frame(t(df)) is that it uses the original row indices (1,2,...) as the new column names, while you want the values from your first column to take that spot. Here are two efficient approaches tailored for your 15000x45 dataframe:

方法1：基础R（高效且无需额外包） #

This method leverages row names to reorient your data correctly, which is fast even for large datasets:

# 1. 将原第一列的值设置为数据框的行名
rownames(df) <- df[, 1]

# 2. 移除原第一列（因为我们已经把它转成行名了）
df_clean <- df[, -1]

# 3. 转置并转换为数据框
df_transposed <- as.data.frame(t(df_clean))

# 可选：如果想把原列名（现在是新数据框的行名）转为一列
df_transposed <- tibble::rownames_to_column(df_transposed, var = "original_column_labels")

After this, your new dataframe will have the name1, name2, ... values as column names, and the original column names (from df_clean) as either row names or a dedicated column.

方法2：Tidyverse风格（更直观，适合数据工作流） #

If you prefer the tidyverse ecosystem, use pivot_longer + pivot_wider to reshape without messing with row names directly:

library(tidyverse)

# 替换`1`为你第一列的实际列名（比如"names"）更清晰
df_transposed <- df %>%
  # 先把数据转为长格式：保留第一列，把其他列拆成"原列名"和"值"两列
  pivot_longer(cols = -1, names_to = "original_columns", values_to = "value") %>%
  # 转宽格式：用原第一列的值作为新列名，原列名作为行标识
  pivot_wider(names_from = 1, values_from = "value") %>%
  # 可选：把原列名列转为行名
  column_to_rownames(var = "original_columns")

This approach is more readable if you're already working with tidyverse tools, and it handles edge cases (like duplicate values in the first column) gracefully by default.

关键注意事项 #

• 唯一性检查: Ensure the values in your first column are unique—if there are duplicates, R will add suffixes (like name1.1) to the new column names to avoid conflicts.
• 内存考量: Your transposed dataframe will be 44 rows × 15000 columns (since we remove the first column), which is very manageable in R even with large datasets.

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