我有一个数据框
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)。
如何做到这一点？
谢谢!
最佳答案
我们可以与“实际”进行比较，获取 rowMeans，如果需要，乘以 100 并四舍五入
round(100*rowMeans(testdf[1:3] == testdf$actual), 2)
关于r - 根据多个预测值和已知的实际值增加数据帧的准确性，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/47357267/