Como fazer legendas em gráficos
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)) #-----------------------------------------------------------------------------
Comentários (0)
Trackbacks (0)
Deixe um comentário
Trackback
Procure aqui
Mais recentes
- Interface gráfica para ajuste de modelos de regressão não linear
- Fatorial duplo com dois tratamentos adicionais
- Como fazer e interpretar o gráfico quantil-quantil
- Gerando código LATEX a partir do R para tabelas e matrizes
- Interpretação da matriz de covariância das estimativas
- Gamma não central (ncg v 0.1.0)
- Semântica para descrever modelos
- Crescimento micelial por análise de imagens
- Legenda e contornos em gráficos de nível
- Cálculo de área foliar ocupada por cochonilhas
- Cálculo de área foliar
- Gráfico de densidade com destaque dos quantis
- Fuzzy c-means, um exemplo!
Núvem de tags
adicional alias anova aov as.layer atalhos bandas de confiança barchart bash curva curve dbc density deriv3 derivada dic do.call dois eixos EBImage editor efeito aleatório eixo emacs ess ExpDes experimentos expression expressão fatorial função gradiente grid gráfico image interativo kernel lapply latex lattice latticeExtra LEG legend legenda levelplot linux lm manipulate melt mtext nabble nls normalidade não linear optim plyr polinômio predict predição R R-br raíz regressão reshape rpanel RStudio subdividida substitute sweave tikz Tukey ven Genuchten verossimilhança wireframe xtable xyplotCategorias
Blogroll
Mais Acessados
- Nenhum