r - 如何防止 pivot_wider() 降低名称中的因子级别？

Question

如果因子的级别存在，但在用作 names_from 参数时从未出现在数据中，我真的希望 pivot_wider 创建一个带有 NA 的列。例如，第一行给了我一个两列的 tibble，但我真的很喜欢下面的三列 tibble。

tibble(Person=c("Sarah", "Jackson", "Jackson"), Rank=c(1,1,2), 
       FavoriteAnimal=factor(c("Dog", "Dog", "Cat")))%>%
    group_by(Person)%>%arrange(Rank)%>%slice(1)%>%
    pivot_wider(names_from = FavoriteAnimal, values_from=Rank)

tibble(Person=c("Jackson", "Sarah"), Dog=c(1,1), Cat=c(NA,NA))
如何获取未出现在我的数据集中的级别的 NA 列？

Answer 1

或者，您可以先添加缺失的级别，然后进行转换:

tibble(Person = c("Sarah", "Jackson", "Jackson"), 
       Rank = c(1, 1, 2), 
       FavoriteAnimal = factor(c("Dog", "Dog", "Cat"))) %>%
 group_by(Person) %>%
 arrange(Rank) %>% 
 slice(1) %>%
 complete(FavoriteAnimal = FavoriteAnimal) %>%
 pivot_wider(names_from = FavoriteAnimal, values_from = Rank)

  Person    Cat   Dog
  <chr>   <dbl> <dbl>
1 Jackson    NA     1
2 Sarah      NA     1