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

Question

Suppose I run the following code:

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)))

This is the table I get:

Why is it still displaying non-unique fruits in each list?

Answer 1

Change

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

to

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

---

Output:

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