<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Gracias, Javier. Está muy bueno el post, pero en efecto refiere a legend y no a los names.arg</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Adjunto un archivo para poder correr el gráfico. Creo que eso ayuda a precisar el problema. Las etiquetas que aparecen al costado izquierdo de las barras son las que quiere pintar de negro y azul.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">También va a necesitar este objeto para que la sintaxis corra sin errores:</div><div class="gmail_default"><div class="gmail_default"><font face="monospace, monospace">library(RColorBrewer) #Para Colorear</font></div><div class="gmail_default"><font face="monospace, monospace">col.segmentos <- brewer.pal(9,"Paired")</font></div></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Gracias!</div></div><div class="gmail_extra"><br><div class="gmail_quote">El 25 de octubre de 2016, 15:16,  <span dir="ltr"><<a href="mailto:javier.ruben.marcuzzi@gmail.com" target="_blank">javier.ruben.marcuzzi@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="ES" link="blue" vlink="#954F72"><div class="m_549016442012989469WordSection1"><p class="MsoNormal">Estimado Mauricio Monsalvo</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">No leí detenidamente su correo, pero mire esto por si le sirve el ejemplo</p><p class="MsoNormal"><a href="http://www.magesblog.com/2012/12/changing-colours-and-legends-in-lattice.html" target="_blank">http://www.magesblog.com/2012/<wbr>12/changing-colours-and-<wbr>legends-in-lattice.html</a></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Javier Rubén Marcuzzi</p><p class="MsoNormal"><u></u> <u></u></p><div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="MsoNormal" style="border:none;padding:0cm"><b>De: </b><a href="mailto:m.monsalvo@gmail.com" target="_blank">Mauricio Monsalvo</a><br><b>Enviado: </b>martes, 25 de octubre de 2016 15:11<br><b>Para: </b><a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es</a><br><b>Asunto: </b>[R-es] Colores en names.arg de un barplot()</p></div><div><div class="h5"><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Hola.</p><p class="MsoNormal">Tengo un gráfico que tiene muchos names.arg (demasiados...), de modo tal</p><p class="MsoNormal">que le vendría bien al lector usar colores intercalados, tal que el primero</p><p class="MsoNormal">sea azul, el segundo negro, el tercero azul, cuarto negro, y así. Es decir,</p><p class="MsoNormal">definir un vector "similar" a este:</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">rep(c("black", "blue"), length(barras[,1]/2)</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">que permita pintar uno y uno en este gráfico:</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">barplot(t(barras[,2:10]), horiz=T, col=col.segmentos, border=F, space=0,</p><p class="MsoNormal">las=1, cex=.75, cex.axis=1</p><p class="MsoNormal">        ,names.arg=row.names(barras), cex.names=0.6, col="red",</p><p class="MsoNormal">xlab="Valores liquidados, en $")</p><p class="MsoNormal">        legend(300, 60, xpd=T , inset=c(-0.1,0), cex=1, bty="n"#bg="white"</p><p class="MsoNormal">#, lwd=F , ncol=1, pch = 15</p><p class="MsoNormal">               ,segmentos ,fill = col.segmentos, border = "darkblue") #</p><p class="MsoNormal">        text(100, 33, paste("Principales", length(barras[,1]),"principios</p><p class="MsoNormal">activos."), adj = c(0,0))</p><p class="MsoNormal">        text(100, 30, paste("Explican el",</p><p class="MsoNormal">round(sum(barras1[,1])/sum(<wbr>todos[,1])*100,1),"% del total."), adj = c(0,0))</p><p class="MsoNormal">        text(100, 27, paste("Excluye productos por</p><p class="MsoNormal">$",round(sum(barras1[,1])-sum(<wbr>barras[,1]),1),"no identificados."), adj =</p><p class="MsoNormal">c(0,0))</p><p class="MsoNormal">        grid(nx=NULL, ny=NA, col = "gray", lwd = 1, lty = 3) #</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">​Obviamente, col() pinta las barras pero no los nombres.</p><p class="MsoNormal">¿Es posible hacerlo en lattice?</p><p class="MsoNormal">Muchas gracias.</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">-- </p><p class="MsoNormal">Mauricio</p><p class="MsoNormal"><u></u> <u></u></p></div></div><p class="MsoNormal">                [[alternative HTML version deleted]]</p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">______________________________<wbr>_________________</p><p class="MsoNormal">R-help-es mailing list</p><p class="MsoNormal"><a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a></p><p class="MsoNormal"><a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a></p><p class="MsoNormal"><u></u> <u></u></p></div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div>