dplyr n_distinct với điều kiện

Question

Sử dụng dplyr để tóm tắt tập dữ liệu, tôi muốn gọi n_distinct để đếm số lần xuất hiện duy nhất trong cột. Tuy nhiên, tôi cũng muốn thực hiện một tóm tắt khác() cho tất cả các lần xuất hiện duy nhất trong một cột trong đó một điều kiện trong một cột khác được thỏa mãn.

Ví dụ dataframe tên "a":

A B 
1 Y 
2 N 
3 Y 
1 Y 

a %>% summarise(count = n_distinct(A))

Tuy nhiên tôi cũng muốn thêm một tội danh n_distinct(A) nơi B == "Y"

Kết quả sẽ là:

count 
    3 

khi bạn thêm con dition kết quả nên là:

count 
    2 

Kết quả cuối cùng tôi đang cố gắng để đạt được là cả hai câu lệnh sáp nhập vào một cuộc gọi mà mang lại cho tôi một kết quả như

count_all count_BisY 
     3   2 

cách thích hợp để đi về việc này là gì với dplyr?

Answer 1

Một cách khác là sử dụng các chức năng uniqueN từ data.table bên dplyr:

library(dplyr) 
library(data.table) 
a %>% summarise(count_all = n_distinct(A), count_BisY = uniqueN(A[B == 'Y'])) 

mang đến cho:

count_all count_BisY 
1   3   2 

---

Bạn cũng có thể làm mọi thứ với data.table:

library(data.table) 
setDT(a)[, .(count_all = uniqueN(A), count_BisY = uniqueN(A[B == 'Y']))] 

mang đến cho kết quả tương tự.

Answer 2

Lọc dataframe trước khi thực hiện các công trình Tóm tắt

a %>% 
    filter(B=="Y") %>% 
    summarise(count = n_distinct(A)) 

Answer 3

Điều này tạo ra giá trị A khác nhau theo từng giá trị của B bằng dplyr.

library(dplyr) 
a %>% 
    group_by(B) %>% 
    summarise(count = n_distinct(A)) 

này tạo ra kết quả:

Source: local data frame [2 x 2] 

     B count 
    (fctr) (int) 
1  N  1 
2  Y  2 

Để sản xuất các đầu ra mong muốn bổ sung trên sử dụng dplyr, bạn có thể làm như sau:

a %>% summarise(count_all = n_distinct(A), count_BisY = length(unique(A[B == 'Y']))) 

này tạo ra kết quả:

count_all count_BisY 
1   3   2 

Answer 4

Chúng tôi c một cũng sử dụng aggregate từ base R

aggregate(cbind(count=A)~B, a, FUN=function(x) length(unique(x))) 
# B count 
#1 N 1 
#2 Y 2 

Dựa trên kết quả mong muốn của OP

data.frame(count=length(unique(a$A)), 
      count_BisY = length(unique(a$A[a$B=="Y"])))