Сосредоточение легенды под двумя сюжетами в г

Я бы хотел расположить общую легенду под двумя сюжетами. я использовал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")

ОБНОВИТЬ

С помощью решения, приведенного ниже, оно обрезает край графика, который становится видимым при изменении размера фигуры путем перетаскивания края (см. Ниже). Есть идеи, что может происходить?

Ответы на вопрос(2)

Ваш ответ на вопрос