从R中的两列计算精度，创建汇总表

Question

注意：我对此非常陌生。 我在R

中有一个数据框（df）

INDIVIDUALS CURRENT INFERRED 
pop1_1 1 1
pop1_2 1 1 
pop1_3 1 2
pop2_1 2 3
pop2_2 2 2
pop2_3 2 2
pop3_1 3 1
pop3_2 3 2
pop3_3 3 3

显示由类（pop）标记的唯一个体，它们实际所属的类（CURRENT）以及通过算法（INFERRED）将它们放置到的类。

我想要的是按类别和整体来总结准确性。所以在上面的例子中，我想要的东西看起来像：

POP CORRECT ACCURACY
pop1 2 66.7
pop2 2 66.7
pop3 1 33.3 
OVERALL 5 55.6

到目前为止，我有这个用于整体计算：

for (i in 1:ncol(reducedresults))
{reducedresults[,i]=as.vector(reducedresults[,i])}
correct<-ifelse(reducedresults$CURRENT==reducedresults$INFERRED,1,0)
accuracy<-sum(correct)/length(correct)*100

我想我可以指定行来查找每个类的准确性，但我不确定如何将其强制进入汇总表，或者我是否在正确的轨道上。