删除标准偏差为零的列

Question

我想从 data.frame 中删除所有标准偏差为零的列。

这不起作用:

  df <- df[, ! apply(df , 2 , function(x) sd(x)==0 ) ]

我得到错误:

undefined columns selected

更新

我选择了 Filter作为我的首选答案，因为它似乎也可以处理 NA s，非常有用。

例如，在

df <- data.frame(v1=c(0,0,NA,0,0), v2=1:5)

列 'v1' 被删除 Filter而apply方法产生错误。

感谢所有其他解决方案，我从他们那里学到了很多东西。

更新 2:

apply 给出的那些错误可以通过添加 na.rm = TRUE 来修复像这样调用 sd:

df[, ! apply(df , 2 , function(x) sd(x, na.rm = TRUE)==0 ) ]

Answer 1

使用过滤器:

Filter(function(x) sd(x) != 0, df)