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

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

ОБНОВИТЬ

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