Chciałbym wyśrodkować wspólną legendę poniżej dwóch wątków. używałemxpd=TRUE aby umożliwić drukowanie poza samą fabułą i oma, aby stworzyć przestrzeń dla legendy. Jednak legenda nie poruszy się poziomo i zostanie przycięta „wcześnie” pionowo. Jakakolwiek rada?

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")

AKTUALIZACJA

Dzięki rozwiązaniu poniżej wycina krawędź wykresu, która staje się widoczna po zmianie wymiaru figury przez przeciągnięcie krawędzi (patrz poniżej). Jakieś pomysły, co może się dziać?