Eric
2018-09-22 14:53:26 UTC
Que tal comunidad, hace dias que estoy en un problema que no puedo
resolver. Resulta que debo confeccionar un grafico de barras (columnas)
que debe incluir barras de error. La unica forma en que me resulto es
con barchart() de la libreria Hmisc, y haciendo un truco un poco
complicado para mi nivel de usuario autodidacta. Ahora que ya lo tengo
(despues de semanas de busqueda) resulta que me piden que en lugar de
usar escala de grises para diferenciar las columnas, use un achurado
(esas lineas que van dentro de la barra, con distintos patrones para
poder diferenciarlas). Con barplot() resulta bastante simple usando los
argumentos angle y density, pero no hay caso con barchart(), simplemente
no encuentro en la internet como hacerlo y tampoco se me ocurre, por mas
que reviso la ayuda de la funcion y de otros parametros de trellis no se
ilumina mi entendimiento. Asi es que paso por aqui a ver si alguien
tiene alguna idea de como hacerlo, dejo mi codigo y algunos datos para
que prueben. Muchas gracias !!
   barchart(ave*100 ~ con | sol, groups=name, data=pag
                    , between=list(x=0), layout=c(1,3)
                    , ylab=list("Fatty acids relative area (%)",
cex=1.1)
                    , scales=list(y=list(cex=1.1), x=list(cex=1.1))
                    , xlab=list("Solvent concentration (mM)",
cex=1.1)
                    , auto.key=list(space="right", points =
FALSE, rectangles = TRUE)
                    , cex=1.2
                     , panel=function(x, y, ..., subscripts){
                     panel.barchart(x, y, subscripts=subscripts,
...)
                     lld <- 100*pag$ll[subscripts]
                     uld <- 100*pag$ul[subscripts]
panel.segments(as.numeric(x)+pag$dis[subscripts],lld,
as.numeric(x)+pag$dis[subscripts],uld,
                         col="black")
                     }
                    )
Olvide de decir que no lo hago con barplot() porque con esa funcion no
me resultan las barras de error.
Muchas gracias !!
Eric.
pd. disculpen que no use tilde, pero no tengo :'(
resolver. Resulta que debo confeccionar un grafico de barras (columnas)
que debe incluir barras de error. La unica forma en que me resulto es
con barchart() de la libreria Hmisc, y haciendo un truco un poco
complicado para mi nivel de usuario autodidacta. Ahora que ya lo tengo
(despues de semanas de busqueda) resulta que me piden que en lugar de
usar escala de grises para diferenciar las columnas, use un achurado
(esas lineas que van dentro de la barra, con distintos patrones para
poder diferenciarlas). Con barplot() resulta bastante simple usando los
argumentos angle y density, pero no hay caso con barchart(), simplemente
no encuentro en la internet como hacerlo y tampoco se me ocurre, por mas
que reviso la ayuda de la funcion y de otros parametros de trellis no se
ilumina mi entendimiento. Asi es que paso por aqui a ver si alguien
tiene alguna idea de como hacerlo, dejo mi codigo y algunos datos para
que prueben. Muchas gracias !!
   barchart(ave*100 ~ con | sol, groups=name, data=pag
                    , between=list(x=0), layout=c(1,3)
                    , ylab=list("Fatty acids relative area (%)",
cex=1.1)
                    , scales=list(y=list(cex=1.1), x=list(cex=1.1))
                    , xlab=list("Solvent concentration (mM)",
cex=1.1)
                    , auto.key=list(space="right", points =
FALSE, rectangles = TRUE)
                    , cex=1.2
                     , panel=function(x, y, ..., subscripts){
                     panel.barchart(x, y, subscripts=subscripts,
...)
                     lld <- 100*pag$ll[subscripts]
                     uld <- 100*pag$ul[subscripts]
panel.segments(as.numeric(x)+pag$dis[subscripts],lld,
as.numeric(x)+pag$dis[subscripts],uld,
                         col="black")
                     }
                    )
Olvide de decir que no lo hago con barplot() porque con esa funcion no
me resultan las barras de error.
Muchas gracias !!
Eric.
pd. disculpen que no use tilde, pero no tengo :'(