sand00 发表于 2016-6-21 22:59 
请问有没有解决啊?
哇,这么老的坟……哈哈,解决方案如下:
library(ROCR)
perf1 <- performance( prediction( mode1, test$y) )
perf2 <- performance( prediction( model2, test$y) )
plot( perf1, col ='orange')
plot( perf2 , add = T )
legend("bottomleft", legend = c('orange: model1','black: model2') )