Bom dia, Outra solução... B <- matrix(c(578,1289, 439,1061), ncol=2) colnames(B) <- c("Feminino","Masculino") rownames(B) <- c("População","IBGE") barplot(B, beside=T, legend.text=TRUE, col=c(4,"limegreen"), main="", ylim=c(0,2000), args.legend = c(bty="n")) [image: Imagem inline 1] ================================================ Éder Comunello Agronomist (UEM), MSc in Environ. Sciences (UEM) DSc in Agricultural Systems Engineering (USP/Esalq) Brazilian Agricultural Research Corporation (Embrapa) Dourados, MS, Brazil |<O>| ================================================ GEO, -22.2752, -54.8182, 408m UTC-04:00 / DST: UTC-03:00 Em 12 de maio de 2016 23:08, Maurício Lordêlo <mslordelo@gmail.com> escreveu:
Segue uma sugestão: B<-matrix(c(578,1289, 439,1061),ncol=2) colnames(B)=c("Feminino","Masculino") rownames(B)=c("População","IBGE") barplot(B, beside=T,col=c("blue","limegreen"), main="",ylim=c(0,2000)) legend(x=5, y=1900,xpd=FALSE, legend=c("População","IBGE"),fill=c("blue","limegreen"),bty="n")
Maurício
Em 12 de maio de 2016 17:21, Andre Oliveira <andreolsouza@yahoo.com.br> escreveu:
Boa tarde, como posso tirar borda desta legenda? Tentei bty="n" mas não deu certo! B<-matrix(c(578,1289, 439,1061),ncol=2) colnames(B)=c("Feminino","Masculino") rownames(B)=c("População","IBGE") barplot(B, beside=T,legend.text=TRUE,col=c(4,"limegreen"), main="",ylim=c(0,2000)) Obrigado
André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
_______________________________________________ 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.
_______________________________________________ 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.
