数据集R消除具有均值0的列以进行相关

Question

我在R中有一个数据集，我希望与pairs()相关联。 数据集包括总数为0的列。这种方式是必要的，因此该过程更加灵活。

如何在pairs()列之前排除总平均值为零？

数据看起来像

x1  x2  x3  x4
0   1   2   0
0   2   3   0
0   2   3   0

Answer 1

像这样：

 mean_is_0 <- sapply(my_data, mean) == 0
 my_data <- my_data[ ! mean_is_0 ]

Answer 2

使用 dplyr ：

df <- read.table(text = 'x1  x2  x3  x4
0   1   2   0
                 0   2   3   0
                 0   2   3   0', header = T)

library(dplyr)
df <- select_if(df, .predicate = function(x) mean(x) != 0)

  x2 x3
1  1  2
2  2  3
3  2  3