プロットに凡例を追加する

Question

プロット領域の外にある次のコードに凡例を追加する方法。ここ はprodicbleコードです：

par(pty="s") 
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 pred 1 
plot(perf, col="red") 
# plot pred 2 
plot(perf2, add = TRUE, col="blue") 

任意の提案をいただければ幸いです。ありがとうございました！

Answer 1

これを行う方法の1つは、parを使用して上部のマージンを広げ、プロット領域外に書き込むことができるようにすることです。次にlegendには、負の値insetを使用できます。

## Your graph 
par(mar=c(5.1,4.1,6,2.1), xpd=TRUE) 
plot(perf, col="red") 
plot(perf2, add = TRUE, col="blue") 

## Add Legend 
legend("topright", c("Pred1", "Pred2"), lty=1, 
    col = c("red", "blue"), bty="n", inset=c(0,-0.15))