R - Belirli bir gruba karşılık gelen sütunların hepsinin bir grupta eşit olup olmadığını nasıl kontrol edebilirim?

Question

en Böyle veri var diyelim:

group value 
1  0 
1  0 
1  0 
2  1 
2  0 
3  1 
3  0 
4  1 
4  1 

nasıl grupla ilgili değerler tüm eşit değerlere sahip olup olmadığını görmek için "grubun" tüm değerleri arasında yineleme olacaktır. Değerlerin aynı olmadığı SADECE grupları içeren bir veri kümesine sahip olmak istiyorum. Bunun için bir döngüden kaçınmanın kolay bir yolu olduğundan emin değilim.

Answer 1

Sen yapabilirsiniz:

tapply(DF$value, DF$group, FUN = function(x) length(unique(x))) > 1L 

#  1  2  3  4 
# FALSE TRUE TRUE FALSE 

ave ile aynı masayı alt küme yazmak için:

paketleri ile

DF[ ave(DF$value, DF$group, FUN = function(x) length(unique(x))) > 1L, ] 

# group value 
# 4  2  1 
# 5  2  0 
# 6  3  1 
# 7  3  0 

, ikincisi adım gibi görünüyor ...

library(data.table) 
setDT(DF)[, if (uniqueN(value) > 1L) .SD, by=group] 

# or 
library(dplyr) 
DF %>% group_by(group) %>% filter(n_distinct(value) > 1L) 

Answer 2

Burada başka bir seçenek table

kullanıyor

tbl <- rowSums(table(df1)>0)>1 
subset(df1, group %in% names(tbl)[tbl]) 
# group value 
#4  2  1 
#5  2  0 
#6  3  1 
#7  3  0