eliminar columnas con mismo valor de una trama de datos

Question

Tengo una trama de datos como éste

1 1 1 K 1 K K 
2 1 2 K 1 K K 
3 8 3 K 1 K K 
4 8 2 K 1 K K 
1 1 1 K 1 K K 
2 1 2 K 1 K K 

Quiero eliminar todas las columnas con el mismo valor, es decir, K, por lo que mi resultado será igual esto

1 1 1 1  
2 1 2 1 
3 8 3 1 
4 8 2 1 
1 1 1 1 
2 1 2 1 

Intento iterar en a por columnas pero no obtengo nada. ¿Algunas ideas? gracias de antemano

Answer 1

Para seleccionar columnas con más de un valor, independientemente del tipo:

uniquelength <- sapply(d,function(x) length(unique(x))) 
d <- subset(d, select=uniquelength>1) 

?

(Vaya, la pregunta de Romano es correcto - esto podría noquear a su columna 5 también)

Tal vez (edición: gracias a los comentarios!)

isfac <- sapply(d,inherits,"factor") 
d <- subset(d,select=!isfac | uniquelength>1) 

o

d <- d[,!isfac | uniquelength>1] 

Answer 2

Otra forma de hacerlo es utilizando la función de orden superior Filter. Aquí está el código

to_keep <- function(x) any(is.numeric(x), length(unique(x)) > 1) 
Filter(to_keep, d) 

Answer 3

Aquí es una solución que va a trabajar para eliminar ningún columnas duplicadas (incluyendo, por ejemplo, pares de carácter replicada, numérico, o columnas de factores). Así es como leo la pregunta del OP, e incluso si es una lectura incorrecta, parece una pregunta interesante también.

df <- read.table(text=" 
1 1 1 K 1 K K 
2 1 2 K 1 K K 
3 8 3 K 1 K K 
4 8 2 K 1 K K 
1 1 1 K 1 K K 
2 1 2 K 1 K K") 

# Need to run duplicated() in 'both directions', since it considers 
# the first example to be **not** a duplicate. 
repdCols <- as.logical(duplicated(as.list(df), fromLast=FALSE) + 
         duplicated(as.list(df), fromLast=TRUE)) 
# [1] FALSE FALSE FALSE TRUE FALSE TRUE TRUE 

df[!repdCols] 
# V1 V2 V3 V5 
# 1 1 1 1 1 
# 2 2 1 2 1 
# 3 3 8 3 1 
# 4 4 8 2 1 
# 5 1 1 1 1 
# 6 2 1 2 1 

Answer 4

Oneliner solution.

df2 <- df[sapply(df, function(x) !is.factor(x) | length(unique(x))>1)]