r - 无法使用来自 tidyr 的新 pivot_wider() 填充缺失值

Question

我对新的 tidyr::pivot_wider() 很着迷具有缺失值功能的函数。
它有时有效，有时无效。

这是一个可重现的示例:

require('tidyr')
df <- data.frame(
  color = c("green", "yellow"),
  nb = c(1758, 12)
  )

# add one level
df$color <- factor(df$color, levels = c("green", "yellow", "red"))

这很有效:

# with deprecated `spread`
spread(data = df, 
       key = color, value = nb, 
       fill = 0,
       drop = F)

>>  green yellow red  
>>1  1758     12   0

但这不

# with new `pivot_wider`
pivot_wider(data = df, 
            names_from = color, 
            values_from = nb, 
            values_fill = list(nb = 0))

# A tibble: 1 x 2
  green yellow
  <dbl>  <dbl>
1  1758     12

我究竟做错了什么 ？

我已经注意到这个 partial answer但我想获得我的函数的等效行为，而不必添加中间步骤。

Answer 1

我们可以使用 complete创建基于 levels 的组合然后使用 pivot_wider

library(dplyr)
library(tidyr)
df %>% 
  complete(color = levels(color), fill = list(nb = 0)) %>% 
  pivot_wider(names_from = color, values_from = nb)
# A tibble: 1 x 3
#  green   red yellow
#  <dbl> <dbl>  <dbl>
#1  1758     0     12