Início > gráficos > Como fazer legendas em gráficos

Como fazer legendas em gráficos

Gráficos com legendas e assinatura.

 

Para os gráficos do pacote graphics a adição de legendas é feita por meio da função legend(). Essa função possuí diversas opções para confecção de diversos tipos de legenda (veja os exemplos da documentação).

Nessa ridícula eu fiz alguns exemplos de como colocar legendas em gráficos de funções, gráfico com pontos e retas, gráfico do ajuste de um modelo de regressão, gráfico de barras, legenda fora da área gráfica, escolha da posição da legenda com o mouse e como colocar assinatura nos gráficos. A documentação da função esclarece o significado dos argumentos usados. Até a próxima ridícula.

#-----------------------------------------------------------------------------
# legenda para uma função

curve(x+x^2, 0, 3, lty=1, col=2, lwd=2)
legend("topleft", legend="f(x)", lty=1, col=2, lwd=2, bty="n")

#-----------------------------------------------------------------------------
# legenda para gráfico de pontos ligados

x <- 1:10
y <- x+rnorm(x,0.5)
plot(y~x, type="o", pch=19)
legend("bottomright", legend="valores observados",
       lty=1, col=1, bty="n", pch=19)

#-----------------------------------------------------------------------------
# legenda para pontos e reta de regressão

m0 <- lm(y~x)
plot(y~x)
abline(m0, col=2, lty=2, lwd=2)
legend("top", legend=c("valores observados", "valores ajustados"),
       lty=c(NA,2), col=c(1,2), lwd=1:2, bty="n", pch=c(1,NA))

#-----------------------------------------------------------------------------
# legenda para gráficos de barras

z <- matrix(1:4, 2, 2)
colnames(z) <- c("A","B")
barplot(z, beside=TRUE, col=c("forestgreen", "palegreen"))
legend("topleft", legend=c("tipo 1", "tipo 2"),
       fill=c("forestgreen", "palegreen"), bty="n")

#-----------------------------------------------------------------------------
# legenda fora da área gráfica disposto em colunas

barplot(z, beside=TRUE, col=c("forestgreen", "palegreen"))
legend(x=1, y=4.5, xpd=TRUE, ncol=2, legend=c("tipo 1", "tipo 2"),
       fill=c("forestgreen", "palegreen"), bty="n")

#-----------------------------------------------------------------------------
# escolhendo a posição da legenda com o mouse

barplot(z, beside=TRUE, col=c("forestgreen", "palegreen"))
legend(locator(1), xpd=TRUE, ncol=2, legend=c("tipo 1", "tipo 2"),
       fill=c("forestgreen", "palegreen"), bty="n")

#-----------------------------------------------------------------------------
# nota de rodapé no gráfico com assinatura, data e versão

barplot(z, beside=TRUE, col=c("forestgreen", "palegreen"))
legend("topleft", xpd=TRUE, ncol=2, legend=c("tipo 1", "tipo 2"),
       fill=c("forestgreen", "palegreen"), bty="n")
mtext(side=4, at=par("usr")[3], adj=0,
      cex=0.8, col="gray40", line=-1,
      text=paste("Walmes Zeviani --",
        format(Sys.time(), "%d/%m/%Y %H:%M:%S --"),
        R.version.string))

#-----------------------------------------------------------------------------
About these ads
Categoriasgráficos Tags:, , , ,
  1. Nenhum comentário ainda.
  1. No trackbacks yet.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Seguir

Obtenha todo post novo entregue na sua caixa de entrada.

Junte-se a 52 outros seguidores

%d blogueiros gostam disto: