Seleccionar grupos con más de un valor distinto

subset difference

Question

Tengo datos con una variable de agrupación ("desde") y valores ("número"):

from number
1 1
1 1
2 1
2 2
3 2
3 2

Quiero subconjuntar los datos y seleccionar grupos que tengan dos o más valores únicos. En mis datos, solo el grupo 2 tiene más de un ''número'' distinto, por lo que este es el resultado deseado:

from number
2 1
2 2

Answer 1

Tu podrías intentar

 library(dplyr)
df1 %>%
group_by(from) %>%
filter(n_distinct(number)>1)
# from number
#1 2 1
#2 2 2

O usando la base R

 indx <- rowSums(!!table(df1))>1
subset(df1, from %in% names(indx)[indx])
# from number
#3 2 1
#4 2 2

O

 df1[with(df1, !ave(number, from, FUN=anyDuplicated)),]
# from number
#3 2 1
#4 2 2

Answer 2

Usando el concepto de varianza compartido por pero haciéndolo de manera dplyr:

library(dplyr)
df %>%
group_by(from) %>%
mutate(variance=var(number)) %>%
filter(variance!=0) %>%
select(from,number)
#Source: local data frame [2 x 2]
#Groups: from
#from number
#1 2 1
#2 2 2

Answer 3

Varias posibilidades, aquí está mi favorito

library(data.table)
setDT(df)[, if(+var(number)) .SD, by = from]
# from number
# 1: 2 1
# 2: 2 2

Básicamente, por cada grupo estamos verificando si hay alguna variación, si es TRUE , luego devolvemos los valores del grupo

Con la base R, iría con

df[as.logical(with(df, ave(number, from, FUN = var))), ]
# from number
# 3 2 1
# 4 2 2

Editar : para datos no numéricos, puede probar la nueva función uniqueN para la versión de desarrollo de data.table (o usar length(unique(number)) > 1 lugar

setDT(df)[, if(uniqueN(number) > 1) .SD, by = from]