在R语言中如何将宽格式数据转为长格式并生成指定输出？

以下是几种把宽格式数据转成目标长格式的可行方案：

方法1：使用tidyr包（推荐，代码简洁） #

先确保你已经安装了tidyr包，若没装可以用install.packages("tidyr")安装。

library(tidyr)

# 构造输入数据（如果是从文件读取，用read.table("你的文件路径", header=TRUE)即可）
df <- data.frame(X = c(2, 4, 7, 0), Y = c(3, 5, 9, 1))

# 转换格式：保留原行顺序，将每一行的X、Y拆分为独立条目
df_long <- df %>% 
  mutate(row_id = row_number()) %>%  # 添加行号用于排序
  pivot_longer(cols = -row_id, names_to = "var", values_to = "val") %>%  # 转成长格式
  arrange(row_id, var) %>%  # 按原行顺序+变量名排序
  select(-row_id)  # 移除行号列

# 打印结果（无行号）
print(df_long, row.names = FALSE)

# 如果要输出到文本文件，用下面的代码：
# write.table(df_long, file = "output.txt", sep = " ", row.names = FALSE, col.names = FALSE)

运行后会得到和你要求完全一致的输出：

var val
X   2
Y   3
X   4
Y   5
X   7
Y   9
X   0
Y   1

方法2：用基础R实现（无需额外包） #

如果你不想用第三方包，也可以用基础R的循环来完成：

# 构造输入数据
df <- data.frame(X = c(2, 4, 7, 0), Y = c(3, 5, 9, 1))

# 创建空结果框
result <- data.frame(var = character(), val = integer(), stringsAsFactors = FALSE)

# 遍历每一行，依次添加X和Y的条目
for(i in 1:nrow(df)){
  result <- rbind(result, data.frame(var = "X", val = df$X[i]))
  result <- rbind(result, data.frame(var = "Y", val = df$Y[i]))
}

# 打印结果
print(result, row.names = FALSE)

这个方法逻辑简单直接，适合不想引入额外依赖的场景。

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