r - 向量化行向量与 R 中数据帧的每一行的比较？

Question

假设我有一个来自读取以下文件 Foo.csv 的数据框

A,B,C
1,2,3
2,2,4
1,7,3

我想计算第一行和后续行之间匹配元素的数量。例如，第一行在一个位置与第二行匹配，在两个位置与第三行匹配。下面是一些可以达到预期效果的代码。

foo = read.csv("Foo.csv")                      

numDiffs = rep(0,dim(foo)[1])                  
for (i in 2:dim(foo)[1]) {                     
   numDiffs[i] = sum(foo[i,] == foo[1,])       
}                                              
print(numDiffs)                                

我的问题是， 是否可以将其矢量化以终止循环并可能减少运行时间 ?我的第一次尝试在下面，但它留下了一个错误，因为 ==没有为这种类型的比较定义。

colSums(foo == foo[1,])

Answer 1

> rowSums(sapply(foo, function(x) c(0,x[1] == x[2:nrow(foo)])))
[1] 0 1 2