R语言中批量将行转置为列的实现方法咨询（spread函数问题）

看起来你用spread()的时候踩了个常见的小坑——这个函数需要每个分组内有唯一的行标识符，不然没法正确把长格式的数值映射到宽格式的对应行里。咱们一步步来解决这个问题：

第一步：构造正确的原始数据框 #

首先，先把你给出的原始数据转换成标准的两列data.frame（我猜你原始数据应该是这样的结构）：

df <- data.frame(
  group = c("A", "A", "A", "B", "B", "B", "C", "C", "C"),
  value = c(1, 2, 5, 2, 3, 4, 3, 7, 9)
)

第二步：添加组内行标识符 #

因为每个分组（A/B/C）都有3个数值，我们需要给每个分组内的行添加一个序号，这样转换函数才知道哪个数值对应宽格式的哪一行：

library(tidyr)
library(dplyr)

df_with_id <- df %>%
  group_by(group) %>%
  mutate(row_id = row_number()) %>% # 给每个组内的行编1、2、3
  ungroup()

第三步：转换为宽格式 #

现在可以用pivot_wider()（tidyr现在推荐用这个替代spread()，功能更灵活稳定）来完成转换，最后去掉我们临时加的行标识符：

wide_df <- df_with_id %>%
  pivot_wider(names_from = group, values_from = value) %>%
  select(-row_id)

如果你坚持想用spread()，代码也类似：

wide_df_spread <- df_with_id %>%
  spread(key = group, value = value) %>%
  select(-row_id)

最终结果 #

运行完上面的代码后，wide_df就是你想要的格式：

> wide_df
# A tibble: 3 × 3
      A     B     C
  <dbl> <dbl> <dbl>
1     1     2     3
2     2     3     7
3     5     4     9

为什么之前spread()没成功？ #

因为原始数据里没有行标识符，spread()无法判断A的1、2、5分别应该放到宽格式的哪一行，添加row_id后，每个(row_id, group)组合都是唯一的，转换函数就能正确匹配映射关系了。

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