将绘图转换为方形图

Question

我在一个图中绘制了两条ROC曲线。如何将绘图转换为方形图？如何将第一条曲线设为绿色，第二条曲线为红色？ 这是一个可以制作的例子：

par(mar=c(5,4,4,2)+0.1) 
library(ROCR)
data(ROCR.simple)
pred <- prediction( ROCR.simple$predictions, ROCR.simple$labels )
pred2 <- prediction(abs(ROCR.simple$predictions + 
                        rnorm(length(ROCR.simple$predictions), 0, 0.1)), 
                ROCR.simple$labels)
perf <- performance(pred, "tpr", "fpr" )
perf2 <- performance(pred2, "tpr", "fpr")
plot(perf)
plot(perf2, add = TRUE)

任何建议将不胜感激。 谢谢！