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