dplyr: Cách xử lý nhiều giá trị

Question

Tôi có một khung dữ liệu, trả về 2 nhóm cho cùng một phút. Làm thế nào nó có thể được xử lý để đạt được sản lượng dự kiến ​​của tôi?

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

tôi đã cố gắng mã dưới đây

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

Im nhận:

Error: expecting a single value

Tôi muốn có đầu ra như dưới đây.

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

Answer 1

Bạn có thể sử dụng paste(..., collapse = ",")

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

Answer 2

Bạn nên làm điều này:

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 

Bạn đã nhận được lỗi vì which trở hai giá trị để tập hợp con của bạn của Company có hai giá trị khi summarise yêu cầu một giá trị duy nhất. Các toString là tương tự như paste với collapse="," ở chỗ nó thu gọn hai giá trị thành một chuỗi được phân tách bằng dấu phẩy.

Ngoài ra, như alistaire chỉ ra trong bình luận của ông cho câu trả lời khác, bạn không cần c và which, vì vậy đây có thể được đơn giản hóa để:

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