<div dir="ltr">Segue uma sugestão:<div><div>B<-matrix(c(578,1289, 439,1061),ncol=2)</div><div>colnames(B)=c("Feminino","Masculino")</div><div>rownames(B)=c("População","IBGE")</div><div>barplot(B, beside=T,col=c("blue","limegreen"), main="",ylim=c(0,2000))</div><div>legend(x=5, y=1900,xpd=FALSE, legend=c("População","IBGE"),fill=c("blue","limegreen"),bty="n")</div></div><div><br></div><div>Maurício</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 12 de maio de 2016 17:21, Andre Oliveira <span dir="ltr"><<a href="mailto:andreolsouza@yahoo.com.br" target="_blank">andreolsouza@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:16px"><div dir="ltr"><span>Boa tarde,</span></div><div dir="ltr"><span>como posso tirar borda desta legenda? Tentei bty="n" mas não deu certo! <br></span></div><div dir="ltr"><span>B<-matrix(c(578,1289, 439,1061),ncol=2)<br>colnames(B)=c("Feminino","Masculino")<br>rownames(B)=c("População","IBGE")<br>barplot(B, beside=T,legend.text=TRUE,col=c(4,"limegreen"),   main="",ylim=c(0,2000))<br>Obrigado<br></span></div><div> </div><div>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</div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>