R - nazwa zwyczajowa i legenda dla połączonych działek

oma

mtext

op <- par( oma=c(0,0,3,0),# Room for the title and legend

 mfrow=c(2,2))

for(i in 1:4) {

 plot( cumsum(rnorm(100)), type="l", lwd=3,

 col=c("navy","orange")[ 1+i%%2 ], 

 las=1, ylab="Value",

 main=paste("Random data", i) )

}

par(op) # Leave the last plot

mtext("Main title", line=2, font=2, cex=1.2)

op <- par(usr=c(0,1,0,1), # Reset the coordinates

 xpd=NA) # Allow plotting outside the plot region

legend(-.1,1.15, # Find suitable coordinates by trial and error

 c("one", "two"), lty=1, lwd=3, col=c("navy", "orange"), box.col=NA)