如何使用dplyr将多列DataFrame重塑为单行DataFrame？

嘿，我明白你遇到的问题了——spread()（包括它的替代函数pivot_wider()）默认只能处理单一数值列，而你现在有value1/value2/value3多列需要转换，直接用肯定会报错。不过咱们可以通过先转长、再转宽的两步操作来完美解决这个需求，下面是具体的实现方法：

解决步骤（以R的tidyverse工具链为例） #

1. 先把现有数据转成长格式：把分散的value*列合并成一个标识列（比如叫variable）和一个统一的值列（value），这样就能让后续的宽展函数识别处理。
2. 再把长格式数据重新宽展：将name列的取值（X/Y）和variable列的取值（value1/2/3）组合成新的列名，最终得到你想要的单行结果。

完整代码示例

library(tidyverse)

# 先构造你的示例数据
df <- tibble(
  name = c("X", "Y"),
  value1 = c(1, 2),
  value2 = c(2, 5),
  value3 = c(6, 7)
)

# 第一步：转成长格式
df_long <- df %>%
  pivot_longer(
    cols = starts_with("value"),  # 选中所有以value开头的列
    names_to = "variable",        # 原列名存到variable列
    values_to = "value"           # 原列值存到value列
  )

# 第二步：宽展成目标格式，把name和variable组合成新列名
df_final <- df_long %>%
  pivot_wider(
    names_from = c(name, variable),  # 用name和variable共同生成新列名
    values_from = value,             # 取值来自value列
    names_sep = "_"                  # 列名用下划线分隔
  )

# 查看最终结果
df_final

运行后你会得到完全符合需求的单行DataFrame：

# A tibble: 1 × 6
  X_value1 X_value2 X_value3 Y_value1 Y_value2 Y_value3
     <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>
1        1        2        6        2        5        7

兼容旧版tidyr的写法 #

如果你还在使用依赖spread()的旧版tidyr，可以用gather()替代pivot_longer()，代码逻辑是一样的：

df_long <- df %>%
  gather(key = "variable", value = "value", value1:value3)

df_final <- df_long %>%
  spread(key = paste(name, variable, sep = "_"), value = value)

这样就完美解决了多值列无法直接用spread()的问题啦～

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