根据几个预测值和已知实际值为数据框添加精度

Question

我有一个数据框

testdf <- data.frame(predicted1 = c(1, 0, 1, 3, 2, 1, 1, 0, 1, 0), predicted2 = c(1, 0, 2, 2, 2, 1, 1, 0, 0, 0), predicted3 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), actual = c(1, 0, 2, 3, 2, 1, 1, 1, 0, 0))

我想在此数据框中添加另一列，告诉我查看所有预测值时的总百分比准确度。因此，例如，其中第1行的准确度为100％，因为所有预测列都预测了正确的值（1）。

如何做到这一点？

谢谢！

Answer 1

我们可以与'实际'进行比较得到rowMeans，乘以100和round如果需要

round(100*rowMeans(testdf[1:3] == testdf$actual), 2)