Đếm số lần xuất hiện của hệ số trong R, với tổng số không được báo cáo

Question

Tôi muốn đếm số lần xuất hiện của một yếu tố trong một khung dữ liệu. Ví dụ, để đếm số lượng các sự kiện của một loại nhất định trong các mã dưới đây:

library(plyr) 
events <- data.frame(type = c('A', 'A', 'B'), 
         quantity = c(1, 2, 1)) 
ddply(events, .(type), summarise, quantity = sum(quantity)) 

Kết quả như sau:

 type quantity 
1 A  3 
2 B  1 

Tuy nhiên, những gì nếu tôi biết rằng có ba loại sự kiện A, B và C và tôi cũng muốn xem số lượng cho C là 0? Nói cách khác, tôi muốn đầu ra là:

 type quantity 
1 A  3 
2 B  1 
3 C  0 

Làm cách nào để thực hiện việc này? Nó cảm thấy như có nên có một chức năng được định nghĩa để làm điều này ở đâu đó.

Sau đây là hai ý tưởng không tốt của tôi về cách thực hiện việc này.

Idea # 1: Tôi biết tôi có thể làm điều này bằng cách sử dụng một vòng lặp for, nhưng tôi biết rằng nó được nói rộng rãi rằng nếu bạn đang sử dụng một vòng lặp for trong R, sau đó bạn đang làm điều gì sai, có phải là một cách tốt hơn để làm điều đó.

Ý tưởng # 2: Thêm mục nhập giả vào khung dữ liệu gốc. Giải pháp này hoạt động nhưng nó cảm thấy như cần có một giải pháp thanh lịch hơn.

events <- data.frame(type = c('A', 'A', 'B'), 
         quantity = c(1, 2, 1)) 
events <- rbind(events, data.frame(type = 'C', quantity = 0)) 
ddply(events, .(type), summarise, quantity = sum(quantity)) 

Answer 1

Bạn có được điều này miễn phí nếu bạn xác định biến events của bạn một cách chính xác là một yếu tố với mong muốn ba cấp độ:

R> events <- data.frame(type = factor(c('A', 'A', 'B'), c('A','B','C')), 
+      quantity = c(1, 2, 1)) 
R> events 
    type quantity 
1 A  1 
2 A  2 
3 B  1 
R> table(events$type) 

A B C 
2 1 0 
R> 

Đơn giản chỉ cần gọi table() trên yếu tố đã làm điều đúng, và ddply() thể quá nếu bạn nói nó không drop:

R> ddply(events, .(type), summarise, quantity = sum(quantity), .drop=FALSE) 
    type quantity 
1 A  3 
2 B  1 
3 C  0 
R> 

Answer 2

> xtabs(quantity~type, events) 
type 
A B C 
3 1 0 

Answer 3

Khá tương tự như @ DWin của câu trả lời:

> aggregate(quantity~type, events, FUN=sum) 
    type quantity 
1 A  3 
2 B  1 
3 C  0 

Answer 4

Sử dụng dplyr thư viện

library(dplyr) 
data <- data.frame(level = c('A', 'A', 'B', 'B', 'B', 'C'), 
        value = c(1:6)) 

data %>% 
    group_by(level) %>% 
    summarize(count = n()) %>% 
    View 

Nếu bạn cũng có thể chọn để thực hiện trung bình, min, hoạt động tối đa, cố gắng này

data %>% 
    group_by(level) %>% 
    summarise(count = n(), Max_val = max(value), Min_val = min(value)) %>% 
    View