如何检查R数据帧的某些特定列是否等于一列？

如果我们在一个数据帧中有大量数据，并且怀疑某些数据列是重复的，或者它们中的某些等于特定的列，那么我们可以使用基数R中的sapply函数来找出它。这样，我们可以删除重复的列，这些重复的列并不能帮助我们的数据分析目标。

例1

请看以下数据帧：

> set.seed(354)
> x1<-rpois(20,5)
> x2<-rpois(20,5)
> x3<-rpois(20,5)
> x4<-rpois(20,5)
> x5<-rpois(20,5)
> df1<-data.frame(x1,x2,x3,x4,x5)
> df1

输出结果

x1 x2 x3 x4 x5
1 4 5 4 4 6
2 6 4 8 7 5
3 5 6 4 7 6
4 5 2 6 13 3
5 3 4 3 5 2
6 9 10 7 5 3
7 8 5 8 2 8
8 5 1 6 4 3
9 1 3 3 9 6
10 2 9 7 9 6
11 11 5 8 5 6
12 8 3 1 2 10
13 5 8 4 4 6
14 3 5 3 5 4
15 7 11 9 6 8
16 5 2 4 6 4
17 6 3 7 4 3
18 7 5 2 6 2
19 9 3 1 5 4
20 7 5 6 4 6

检查x1和x5列是否为

示例

> all(sapply(list(df1$x5),function(x) x==df1$x1))

输出结果

[1] FALSE

示例

> all(sapply(list(df1$x2,df1$x3),function(x) x==df1$x1))

输出结果

[1] FALSE

示例

> all(sapply(list(df1$x1,df1$x3),function(x) x==df1$x2))

输出结果

[1] FALSE

示例

> all(sapply(list(df1$x1,df1$x2,df1$x3),function(x) x==df1$x5))

输出结果

[1] FALSE

示例

> all(sapply(list(df1$x1,df1$x2,df1$x3),function(x) x==df1$x4))

输出结果

[1] FALSE

例2

> y1<-rep(c(1,2,3,4),5)
> y2<-rep(c(1,2,3,4),5)
> y3<-rep(c(1,2,3,4),5)
> y4<-rep(c(1,2,4,5),5)
> df2<-data.frame(y1,y2,y3,y4)
> df2

输出结果

y1 y2 y3 y4
1 1 1 1 1
2 2 2 2 2
3 3 3 3 4
4 4 4 4 5
5 1 1 1 1
6 2 2 2 2
7 3 3 3 4
8 4 4 4 5
9 1 1 1 1
10 2 2 2 2
11 3 3 3 4
12 4 4 4 5
13 1 1 1 1
14 2 2 2 2
15 3 3 3 4
16 4 4 4 5
17 1 1 1 1
18 2 2 2 2
19 3 3 3 4
20 4 4 4 5

示例

> all(sapply(list(df2$y2, df2$y3),function(x) x==df2$y1))

输出结果

[1] TRUE

示例

> all(sapply(list(y2,y3),function(x) x==df2$y1))

输出结果

[1] TRUE

示例

> all(sapply(list(df2$y3),function(x) x==df2$y2))

输出结果

[1] TRUE

示例

> all(sapply(list(df2$y2,df2$y3),function(x) x==df2$y4))

输出结果

[1] FALSE