r - 按列将匹配值求和到另一列

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

我想获取与第一列匹配的每一列的行数。

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

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

我知道使用 apply，我可以进行按行或按列的操作。

 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))