Извлечь имя переменной top_n для каждой группы

Question

Для каждой группы я пытаюсь заставить top_n car_names появляться в новом столбце через запятую.

Например, когда вы запустите приведенный ниже код, вы увидите 2 лучших автомобиля на галлон на группу (цил).Затем я хочу извлечь две верхние машины (или больше, если есть связь) и сохранить их вместе в новом столбце с именем car_summary.

mtcars2 %>% 
  select(mpg, cyl, car_name) %>% 
  group_by(cyl) %>%  
  mutate(Score = rank(mpg, ties.method = "max")) %>%
  arrange(desc(Score)) %>% top_n(2,Score)

Ожидаемый результат выглядит следующим образом

cyl  <-  c(8,4,6)
car_summary <-  c("Pontiac Firebird, Hornet Sportabout", "Toyota Corolla, 
Fiat 128", "Hornet 4 Drive, Mazda RX4, Mazda RX4 Wag")

data.frame(cyl, car_summary)

  cyl                                  car_summary
1   8          Pontiac Firebird, Hornet Sportabout
2   4                     Toyota Corolla, Fiat 128
3   6     Hornet 4 Drive, Mazda RX4, Mazda RX4 Wag

Answer 1

Вам нужно toString от базы R -

mtcars2 %>% 
  select(mpg, cyl, car_name) %>% 
  group_by(cyl) %>%  
  mutate(Score = rank(mpg, ties.method = "max")) %>%
  arrange(desc(Score)) %>%
  top_n(2,Score) %>%
  summarize(car_summary = toString(car_name))