如何将分组 tibble 中的列汇总为唯一值列表

Question

假设我运行以下代码：

library(tidyverse)
tbl <- tibble::tribble(
          ~name,       ~fruit,
          "dan",      "apple",
          "dan",      "apple",
          "dan",     "banana",
       "george",     "banana",
       "george", "watermelon",
       "george",     "banana",
       "lauren",       "kiwi",
       "lauren",       "kiwi",
       "lauren",       "kiwi"
       )

tbl %>%
    group_by(name) %>%
    summarise(fruits = unique(list(fruit)))

这是我得到的表：

为什么它仍然在每个列表中显示非唯一的水果？

Answer 1

改变

tbl %>%
    group_by(name) %>%
    summarise(fruits = unique(list(fruit)))

到

tbl %>%
    group_by(name) %>%
    summarise(fruits = list(unique(fruit)))

---

输出：

name	fruits
dan	apple , banana
george	banana , watermelon
lauren	kiwi