[dúvida] colocar única legenda em 4 plots no mesmo frame
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
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
Tente assim: m <- rbind(1, c(2, 3, 4), c(2, 5, 6), 7) nc <-layout(m, width = c(0.5, 2, 2), heights = c(0.5, 2, 2, 0.5)) #layout.show(nc) par(mar = rep(0, 4)) plot(0, type = 'n', axes = FALSE) text(1, 0, "Titulo do Grafico", pos = 3, font = 2) par(mar = rep(0, 4)) plot(0, type = 'n', axes = FALSE) text(1, 0, "Eixo Y", pos = 3, srt = 90) plot(rnorm(100), axes = FALSE);box() plot(rnorm(100), axes = FALSE);box() plot(rnorm(100), axes = FALSE);box() plot(rnorm(100), axes = FALSE);box() par(mar = rep(0, 4)) plot(0, type = 'n', axes = FALSE) text(1, 0, "Eixo X", pos = 3) 2012/3/31 Marcelo Claro de Souza <marcelo_claro@yahoo.com.br>:
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
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
participantes (3)
-
Henrique Dallazuanna -
Marcelo Claro de Souza -
Paulo Justiniano