Como fazer legendas em gráficos

June 13, 2011
By

This post was kindly contributed by Ridículas - go there to comment and to read the full post.

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))

#-----------------------------------------------------------------------------

Tags: , , , , ,

Comments are closed.