R语言中如何用pivot_wider将列表列数据展开为多行？

问题分析 #

你的问题出在同一Location+Names组合下存在多个Result值，pivot_wider无法将多个值塞进单个单元格，所以默认打包成列表并抛出警告。要实现将列表值展开为多行，有两种直接的解决方式。

模拟原始数据 #

先还原你的数据集方便演示：

library(tidyverse)

df <- tibble(
  Location = c("A", "B", "B", "C"),
  Names = c("Foo", "Foo", "Foo", "Bar"),
  Result = c(3, 2, 1, 4)
)

方法1：pivot_wider + unnest（直接拆分列表列） #

先执行pivot_wider生成宽表，再用unnest将列表列拆分为多行：

df %>%
  pivot_wider(names_from = Names, values_from = Result) %>%
  unnest(cols = everything()) # 自动拆分所有列表列

执行后结果：

方法2：先添加唯一标识，再pivot_wider（避免生成列表列） #

给同一Location+Names下的重复值添加行号，确保每组组合唯一，这样pivot_wider会直接生成多行而不是列表：

df %>%
  group_by(Location, Names) %>%
  mutate(row_num = row_number()) %>%
  ungroup() %>%
  pivot_wider(names_from = Names, values_from = Result) %>%
  select(-row_num) # 不需要行号可删除

得到的结果和方法1完全一致，且不会触发警告。

关键说明 #

• 方法1适合已经生成了列表列的情况，快速拆分；
• 方法2从根源避免列表列的生成，更高效，也不会收到警告信息。

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