dplyr: Obsługa wielu wartości

Question

Mam ramkę danych, która zwraca 2 grupy na tę samą min. Jak można go obsłużyć, aby osiągnąć oczekiwany wynik?

df<- read.table(header=TRUE, 
       text=" 
       Company xxx yyyy zzzz cnt 
       abc  1  1 1  20 
       aaa  1  1 2  3 
       bbb  1  1 1  3 
       ddd  2  0 2  100 
       ") 

Próbowałem poniżej kod

final= df %>% 
     group_by(xxx,yyyy) %>% 
     summarise(Topcomp=Company[c(which(min(cnt)==cnt))]) 

Im uzyskiwanie:

Error: expecting a single value

chcę mieć wyjście jak poniżej.

xxx yyyy Topcomp 
    <int> <int> <fctr> 
1  1  1 aaa,bbb 
2  2  0  ddd 

Answer 1

można użyć paste(..., collapse = ",")

df %>% 
    group_by(xxx,yyyy) %>% 
    summarise(Topcomp = paste(Company[min(cnt) == cnt], collapse = ",")) 

Answer 2

powinien to zrobić:

final= df %>% 
    group_by(xxx,yyyy) %>% 
    summarise(Topcomp=toString(Company[c(which(min(cnt)==cnt))])) 
##Source: local data frame [2 x 3] 
##Groups: xxx [?] 
## 
## xxx yyyy Topcomp 
## <int> <int> <chr> 
##1  1  1 aaa, bbb 
##2  2  0  ddd 

Byłaś uzyskiwanie błąd ponieważ which powrócił dwie wartości tak, że podzbiór Company ma dwie wartości, gdy summarise wymaga pojedynczej wartości. Model toString jest podobny do paste z collapse=",", ponieważ składa dwie wartości w łańcuchu oddzielonym przecinkiem.

Ponadto, jak wskazano w alistaire jego komentarz do drugiej odpowiedzi, nie trzeba się c i which, więc można uprościć do:

final= df %>% 
    group_by(xxx,yyyy) %>% 
    summarise(Topcomp=toString(Company[min(cnt)==cnt]))