[R-es] Colores en names.arg de un barplot()

[Mauricio Monsalvo]

Gracias, Javier. Está muy bueno el post, pero en efecto refiere a legend y
no a los names.arg
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.
También va a necesitar este objeto para que la sintaxis corra sin errores:
library(RColorBrewer) #Para Colorear
col.segmentos <- brewer.pal(9,"Paired")
Gracias!

El 25 de octubre de 2016, 15:16, <javier.ruben.marcuzzi en gmail.com> escribió:

> Estimado Mauricio Monsalvo
>
>
>
> No leí detenidamente su correo, pero mire esto por si le sirve el ejemplo
>
> http://www.magesblog.com/2012/12/changing-colours-and-
> legends-in-lattice.html
>
>
>
>
>
> Javier Rubén Marcuzzi
>
>
>
> *De: *Mauricio Monsalvo <m.monsalvo en gmail.com>
> *Enviado: *martes, 25 de octubre de 2016 15:11
> *Para: *r-help-es <r-help-es en r-project.org>
> *Asunto: *[R-es] Colores en names.arg de un barplot()
>
>
>
> Hola.
>
> Tengo un gráfico que tiene muchos names.arg (demasiados...), de modo tal
>
> que le vendría bien al lector usar colores intercalados, tal que el primero
>
> sea azul, el segundo negro, el tercero azul, cuarto negro, y así. Es decir,
>
> definir un vector "similar" a este:
>
>
>
> rep(c("black", "blue"), length(barras[,1]/2)
>
>
>
> que permita pintar uno y uno en este gráfico:
>
>
>
> barplot(t(barras[,2:10]), horiz=T, col=col.segmentos, border=F, space=0,
>
> las=1, cex=.75, cex.axis=1
>
>         ,names.arg=row.names(barras), cex.names=0.6, col="red",
>
> xlab="Valores liquidados, en $")
>
>         legend(300, 60, xpd=T , inset=c(-0.1,0), cex=1, bty="n"#bg="white"
>
> #, lwd=F , ncol=1, pch = 15
>
>                ,segmentos ,fill = col.segmentos, border = "darkblue") #
>
>         text(100, 33, paste("Principales", length(barras[,1]),"principios
>
> activos."), adj = c(0,0))
>
>         text(100, 30, paste("Explican el",
>
> round(sum(barras1[,1])/sum(todos[,1])*100,1),"% del total."), adj =
> c(0,0))
>
>         text(100, 27, paste("Excluye productos por
>
> $",round(sum(barras1[,1])-sum(barras[,1]),1),"no identificados."), adj =
>
> c(0,0))
>
>         grid(nx=NULL, ny=NA, col = "gray", lwd = 1, lty = 3) #
>
>
>
> ​Obviamente, col() pinta las barras pero no los nombres.
>
> ¿Es posible hacerlo en lattice?
>
> Muchas gracias.
>
>
>
> --
>
> Mauricio
>
>
>
>                 [[alternative HTML version deleted]]
>
>
>
> _______________________________________________
>
> R-help-es mailing list
>
> R-help-es en r-project.org
>
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>



-- 
Mauricio
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20161025/242f8121/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: barras.csv
Type: text/csv
Size: 3110 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20161025/242f8121/attachment.bin>