Hola buenas, acualmente estoy haciendo unas gráficas que quiero poner de
tres en tres. El problema es el siguiente, no siempre cave la leyenda
dentro de la caja y agrandar la caja no es una una opción ya que  no
quedaría elegante en todos los gráficos.

He intentado dejar un hueco arriba en el dibujo para allí poner la leyenda
con la orden legend. Pero me es imposible. ¿Álguna idea?

Os dejao un script de ejemplo, para ver si me podeis ayudar.

 Gracias por adelantado Javier.


###################################################################################################################################
#
EJEMPLO
LEYENDA
#
###################################################################################################################################
cm <- 17         # ask width of the pictures. It is as normal paper
inchW <- cm/2.54 # compute the inch for the pictures
inchH <- cm/2.54 / (1+sqrt(5))*2 *1.2

x11(height=inchH ,width= inchW, pointsize=12)
par(mfrow=c(1,3), las=1, cex.axis=1, cex.main=0.95, cex.lab=1,
mai=c(0.65,0.65,1,0.2))

LimiteY<-c(-3,3)


x1 <- rnorm(10)
y1 <- rnorm(10)
z1 <- rnorm(10)

d1 <- cbind(x1, y1, z1)

x2 <- rnorm(10)
y2 <- rnorm(10)
z2 <- rnorm(10)

d2 <- cbind(x2, y2, z3)

x3 <- rnorm(10)
y3 <- rnorm(10)
z3 <- rnorm(10)

d3 <- cbind(x3, y3, z3)

ts.plot(d1, col=1:3, ylim= LimiteY)
ts.plot(d2, col=1:3, ylim= LimiteY)
title("¿Sacando fuera la leyenda?
      Ese gran misterio", line=0.5)
ts.plot(d3, col=1:3, ylim= LimiteY)

legend("topright", c("Negro", "Rojo", "verde"), col=1:3, fill=1:3)   # Me
gustaría dejar la leyenda fuera del dibuja en el hueco que he dejardo
arriba de los tros dibujos con esta misma intención

#Otras pruebas
legend(x= 6, y= 4, c("Negro", "Rojo", "verde"), col=1:3, fill=1:3)
legend(x= 6, y= 4.5, c("Negro", "Rojo", "verde"), col=1:3, fill=1:3)

###################################################################################################################################

	[[alternative HTML version deleted]]

