Rで凡例をペアごとに比較すると、凡例が表示されない

Question

色付きのドットとの一連のペアワイズ比較を作成しようとしています。問題は私の伝説がプロットにないことです。したがって、ドットが何を意味するのかを推測することは不可能です。以下の再現性の例で私が話しているものを示しています

このコードは、プロットのtoprightの伝説を持つ2つのディメンション間の比較生成：ディメンションの数が増加した場合、

data1 <- data.frame(score1=rnorm(10),score2=rnorm(10)) 
data2 <- data.frame(score1=rnorm(10),score2=rnorm(10),score3=rnorm(10)) 
colors <- c(rep("red",5),rep("blue",5)) 

#Plot with legend 
par(xpd=TRUE,mar = par()$mar + c(0,0,0,7)) 
plot(data2,col=colors,pch=16)l 
legend("topright",legend=c("Red","Blue"),pch=16,col=c("red","blue"),inset=c(-0.4,0),) 

をしかし、伝説は失われています：

par(xpd=TRUE,mar = par()$mar + c(0,0,0,7)) 
plot(data1,col=colors,pch=16) 
legend("topright",legend=c("Red","Blue"),pch=16,col=c("red","blue"),inset=c(-0.4,0),) 

どうすればこの問題を解決できますか？

Answer 1

これが私の作品：

#oma below sets the margins - value 10 is for the right margin 
plot(data2,col=colors,pch=16, oma = c(3,3,3,10)) 
par(xpd=TRUE) 
legend('topright',legend=c("Red","Blue"),pch=16,col=c("red","blue")) 

は手動ニーズに対してより適したものにするために伝説の座標を追加することができます。

出力：