将列匹配值与另一列匹配

Question

似乎，我在这里错过了一些链接。 我有数据框

df<-data.frame(w=sample(1:3,10, replace=T), x=sample(1:3,10, replace=T), y=sample(1:3,10, replace=T), z=sample(1:3,10, replace=T))

> df
   w x y z
1  3 1 1 3
2  2 1 1 3
3  1 3 2 2
4  3 1 3 1
5  2 2 1 1
6  1 2 2 3
7  1 2 2 2
8  2 2 2 3
9  1 3 3 3
10 2 2 1 1

我想获得与第1列匹配的每列的行数。

sum(df$w==df$x)
[1] 3

 sum(df$w==df$y)
[1] 2
 sum(df$w==df$z)
[1] 1

我知道使用apply，我可以做rowwise或colwise操作。

 apply(df,2,length)
 w  x  y  z 
10 10 10 10 

如何组合这两个功能？

Answer 1

尝试colSums

colSums(df[-1] == df[, 1])
# x y z 
# 3 2 1 

或者如果您进入*apply循环可以尝试

vapply(df[-1], function(x) sum(x == df[, 1]), double(1))