r - 我怎样才能在 R 中取消列出 pivot wider 的结果

Question

有谁知道取消列出 R 中 pivot_wider 函数的输出的方法吗？下面的代码在 A 列的每个单元格中返回一个列表，在 B 列的每个单元格中返回一个列表。我最理想的是为列表单元格 A 和 B 中的每个观察重复项目(例如橙色)。

library(tidyverse)
set.seed(111)
# What I have
data_bad <- tibble(
  Item = rep(c("Orange", "Lemon", "Sugar", "Parsley"),each = 6),
  Source = rep(c("A","A","A","B","B","B"), times = 4),
  Value = runif(length(Item))
) %>%
  pivot_wider(names_from = Source, values_from = Value, values_fn = list(value = list))

# What I'd like
data_good <- tibble(
  Item = rep(c("Orange", "Lemon", "Sugar", "Parsley"),each = 6),
  A = runif(n = length(Item)),
  B = runif(n = length(Item))
)

感谢您的帮助!

Answer 1

我们可以使用tidyr中的unnest

library(dplyr)
library(tidyr)
data_bad %>% 
   unnest