Tìm bao nhiêu lần hàng lặp lại lặp lại trong khung dữ liệu R

Question

Tôi có một khung dữ liệu như ví dụ sau

a = c(1, 1, 1, 2, 2, 3, 4, 4) 
b = c(3.5, 3.5, 2.5, 2, 2, 1, 2.2, 7) 
df <-data.frame(a,b) 

tôi có thể loại bỏ các hàng trùng lặp từ khung R dữ liệu bằng đoạn mã sau, nhưng làm thế nào tôi có thể tìm thấy như thế nào nhiều lần mỗi hàng trùng lặp lặp lại? Tôi cần kết quả như một véc tơ.

unique(df) 

hoặc

df[!duplicated(df), ] 

Answer 1

Dưới đây là giải pháp sử dụng chức năng ddply() từ thư viện plyr

library(plyr) 
ddply(df,.(a,b),nrow) 

    a b V1 
1 1 2.5 1 
2 1 3.5 2 
3 2 2.0 2 
4 3 1.0 1 
5 4 2.2 1 
6 4 7.0 1 

Answer 2

Bạn luôn có thể giết chết hai con chim với một đá:

aggregate(list(numdup=rep(1,nrow(df))), df, length) 
# or even: 
aggregate(numdup ~., data=transform(df,numdup=1), length) 
# or even: 
aggregate(cbind(df[0],numdup=1), df, length) 

    a b numdup 
1 3 1.0  1 
2 2 2.0  2 
3 4 2.2  1 
4 1 2.5  1 
5 1 3.5  2 
6 4 7.0  1 

Answer 3

Dưới đây là hai cách tiếp cận.

# a example data set that is not sorted 
DF <-data.frame(replicate(sequence(1:3),n=2)) 

# example using similar idea to duplicated.data.frame 
count.duplicates <- function(DF){ 
x <- do.call('paste', c(DF, sep = '\r')) 
    ox <- order(x) 
    rl <- rle(x[ox]) 
    cbind(DF[ox[cumsum(rl$lengths)],,drop=FALSE],count = rl$lengths) 

} 
count.duplicates(DF) 
# X1 X2 count 
# 4 1 1  3 
# 5 2 2  2 
# 6 3 3  1 


# a far simpler `data.table` approach 
library(data.table) 
count.dups <- function(DF){ 

    DT <- data.table(DF) 
    DT[,.N, by = names(DT)] 
} 
count.dups(DF) 
# X1 X2 N 
# 1: 1 1 3 
# 2: 2 2 2 
# 3: 3 3 1 

Answer 4

Sử dụng dplyr:

summarise(group_by(df,a,b),length(b)) 

hoặc

group_size(group_by(df,a,b)) 
#[1] 1 2 2 1 1 1