如何删除在 R 中没有多个不同观察值的所有变量？

Question

我有一个包含多个变量的数据集，这些变量只有一个独特的观察结果（例如，对于数据集中的每个观察结果，变量 Language 等于“英语”）。我试图编写一个函数来自动找到这种性质的任何变量并将其从数据框中删除。以下代码有效，但我确信有一种更有效的方法。有什么想法吗？

test.df <- data.frame(var1=rep("a",5), var2=c(rep("a",3),rep("b",2)),
                      var3=1:5, var4=rep(0,5)) 

remove.repeat.vars <- function(data) {
  one.level.factors <- sapply(data, function(x) ifelse(length(unique(x)) < 2, 1, 0))
  one.level.factors <- names(one.level.factors[which(one.level.factors == 1)])
  return (data[,-which(names(data) %in% one.level.factors)])
}

 remove.repeat.vars(test.df)

Answer 1

一个班轮：

test.df[, sapply(test.df, function(x) length(unique(x)) > 1)]

这就是它起作用的原因。 R 支持两种不同的方式来索引向量：使用索引向量（任意长度）或使用布尔向量。比较：

> x <- 6:10
> x[c(1,3,5)]
[1]  6  8 10
> x[c(TRUE, FALSE, FALSE, TRUE, FALSE)]
[1] 6 9

第二个原因是为什么 x[x>7] 这样的东西会起作用。