xoá các cột với cùng một giá trị từ một khung dữ liệu

Question

Tôi đã có một khung dữ liệu như thế này một

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 

Tôi muốn loại bỏ tất cả các cột với các giá trị như nhau, tức là K, vì vậy kết quả của tôi sẽ như thế nào này

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

Tôi cố gắng lặp lại theo từng cột nhưng tôi không nhận được gì. Ý tưởng nào? cảm ơn trước

Answer 1

Để chọn cột với nhiều hơn một giá trị bất kể loại:

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

?

(Rất tiếc, câu hỏi của La Mã là đúng - điều này có thể knock out cột 5 cũng)

lẽ (chỉnh sửa: nhờ bình luận!)

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

hoặc

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

Answer 2

Một cách khác để thực hiện việc này là sử dụng hàm thứ tự cao hơn Filter. Đây là mã

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

Answer 3

Dưới đây là một giải pháp mà sẽ làm việc để loại bỏ bất kỳ cột nhân rộng (bao gồm, ví dụ, cặp nhân vật được sao, số, hoặc cột yếu tố). Đó là cách tôi đọc câu hỏi của OP, và thậm chí nếu nó là một sự hiểu lầm, nó có vẻ giống như một câu hỏi thú vị nữa.

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

Giải pháp oneliner.

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