r - rの2つのプロットの下に凡例をセンタリング

Question

共通の凡例を 2 つのプロットの下の中央に配置したいと思います。xpd=TRUEプロット自体の外側に印刷できるようにし、凡例のスペースを作成するために oma を使用していました。ただし、凡例は水平方向には移動せず、垂直方向に「早く」切り取られます。何かアドバイス？

quartz(title="PCoA",12,6)
par(mfrow=c(1,2),oma=c(5,0,0,0),xpd=TRUE)

plot(1:3,4:6,main="plot 1")

plot(1:3,4:6,main="plot 2")


# Clips the plot    
legend(1,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

# Won't let me move the legend sideways 
legend(0,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

アップデート

以下のソリューションでは、エッジをドラッグして図の寸法を変更することで表示されるグラフのエッジをカットします (以下を参照)。何が起こっているのでしょうか？

Answer 1

par(xpd=NA)あなたが探しているものはもっとあります。?parヘルプページからの抜粋:

xpd
論理値または NA。FALSE の場合、すべてのプロットがプロット領域にクリップされます。TRUE の場合、すべてのプロットが Figure 領域にクリップされます。NA の場合、すべてのプロットがデバイス領域にクリップされます。も参照してくださいclip。

実際、図の領域ではなく、デバイスの領域にクリッピングする必要があります (たとえば、プロット、図、およびデバイス領域の違いのグラフィカルな説明については、このブログ エントリを参照してください)。

quartz(title="PCoA",12,6)
par(mfrow=c(1,2),oma=c(5,0,0,0),xpd=NA)

plot(1:3,4:6,main="plot 1")

plot(1:3,4:6,main="plot 2")
legend(-0.5,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"), 
    fill=c("green","orange","red"), title="Fetch")