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

[javier.ruben.marcuzzi en gmail.com]

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
Enviado: martes, 25 de octubre de 2016 15:11
Para: r-help-es
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


	[[alternative HTML version deleted]]