数据集 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