在R中，从满足条件的数据帧中删除向量

Question

我在r中有一个数据框（df），我想删除所有不变的列（具有相同的数字）

df <- read.table(text = "1 2 3 1 1 3 1 2 3 1 2 3

                 1 1 1 1 3 2 1 2 1 1 3 1

                 1 3 1 1 2 2 1 1 3 1 2 3

                 1 1 3 1 1 2 1 2 1 1 2 3", header = FALSE)

  V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12
1  1  2  3  1  1  3  1  2  3   1   2   3
2  1  1  1  1  3  2  1  2  1   1   3   1
3  1  3  1  1  2  2  1  1  3   1   2   3
4  1  1  3  1  1  2  1  2  1   1   2   3

并保留变体列

 V2 V3 V5 V6 V8 V9 V11 V12
  2  3  1  3  2  3   2   3
  1  1  3  2  2  1   3   1
  3  1  2  2  1  3   2   3
  1  3  1  2  2  1   2   3

Answer 1

df[, !duplicated(t(df))]为您提供了不重复的列

  V1 V2 V3 V5 V6 V8 V9 V11 V12
1  1  2  3  1  3  2  3   2   3
2  1  1  1  3  2  2  1   3   1
3  1  3  1  2  2  1  3   2   3
4  1  1  3  1  2  2  1   2   3