使用包ROCR的精确回收曲线的AUC

Question

如何使用ROCR包获得精密回收曲线的AUC（曲线下面积）？

library(ROCR)
data(ROCR.simple)
pred <- prediction( ROCR.simple$predictions, ROCR.simple$labels)
perf <- performance(pred,"tpr","fpr")
plot(perf)
## precision/recall curve (x-axis: recall, y-axis: precision)
perf1 <- performance(pred, "prec", "rec")
plot(perf1)

Answer 1

您可以先获得精确值和召回值

x <- perf1@x.values[[1]] # Recall values
y <- perf1@y.values[[1]] # Precision values

然后使用任何方法计算曲线下面积 calculate area under the curve

Answer 2

ROCR可以直接计算AUC：

perf <- performance(pred, "auc")

获取AUC

perf@y.values[[1]]