[R-br] [dúvida] colocar única legenda em 4 plots no mesmo frame

[Paulo Justiniano]

Nao vajo como umna vez que o grafico anteior nao está mais ativo

mas para evitar digitacoes poderia fazer uma funcao que faça a legenda e 
chama-la:

lg <- function() {legend(...)}
layout(matrix(1:4,nrow=2,ncol=2))
plot(x1~y1,data=dados); lg()
plot(x2~y2,data=dados); lg()
plot(x3~y3,data=dados); lg()
plot(x4~y4,data=dados); lg()

poderia ainda fazer algo
para evitar chamar plot() 4 vezes
usando apply, lapply ou similar




On Sat, 31 Mar 2012, Marcelo Claro de Souza wrote:

> Plotei quatro figuras em um mesmo frame utilizando:
> layout(matrix(1:4,nrow=2,ncol=2))
> plot(x1~y1,data=dados)
> plot(x2~y2,data=dados)
> plot(x3~y3,data=dados)
> plot(x4~y4,data=dados)
> 
> Eu gostaria de colocar uma única legenda nos eixos x e y para representar os eixos das 4 figuras ao mesmo tempo,
> sem a necessidade de chamar uma legenda para cada figura evitando redundâncias.
> Alguém teria alguma sugestão?
> Muito obrigado.
>  
> Marcelo Claro de Souza
> Biologist, PhD student in Plant Biology
> Institute of Bioscience - UNESP, Brazil
> 
> 
>