Re: [R] Stacked barchart color

From: hadley wickham <h.wickham_at_gmail.com>
Date: Fri, 22 Jun 2007 21:55:52 +0200

Hi Owen,

The bars should be stacked in the order specified by the factor. Try using factor(..., levels=...) to explicitly order them the way you want. If that doesn't work, please provide a small replicable example and I'll look into it.

Hadley

On 6/18/07, owenman <solberg_at_speakeasy.net> wrote:
>
> Hi Hadley,
> Great, I am starting to get it. It's working for me, but there is one more
> thing I am having trouble with. The ordering of the stacked bars seems to
> be dictated by the name of the color, I guess because of the fill=color
> argument in aes(). In other words, if I set up my colors like this:
> y$color = c("gray1","gray35","gray45","gray65") the bars get stacked in the
> opposite order than if I set up the colors like this: y$color =
> c("gray65","gray45","gray35","gray1"). How can I control the order of the
> bars independent of the name of the colors? Thanks so much in advance!
> Really neat package you've made.
>
> FYI, my plot command now looks like this:
>
> p = ggplot(y, aes(x=locus, y=Freq, fill=color))
> p = p + geom_bar(position="fill")
> p = p + scale_fill_identity(labels=levels(y$Fnd), grob="tile", name="Fnd
> Results")
> p = p + coord_flip()
>
> And the data table is similar as before:
>
> > y
> Fnd locus Freq color
> 1 signeg DPB1 0.013071895 gray1
> 2 neg DPB1 0.581699346 gray35
> 3 pos DPB1 0.379084967 gray45
> 4 sigpos DPB1 0.026143791 gray65
> 5 signeg DPA1 0.068181818 gray1
> 6 neg DPA1 0.659090909 gray35
> 7 pos DPA1 0.250000000 gray45
> 8 sigpos DPA1 0.022727273 gray65
>
>
>
> hadley wrote:
> >
> > Hi Owen,
> >
> > The identity scale won't create a legend, unless you tell it what
> > labels it should use - there's an example at
> > http://had.co.nz/ggplot2/scale_identity.html. Otherwise, if you have
> > a continuous scale and you want something that works in black and
> > white, p + scale_fill_gradient(low="white", high="black") might be
> > easier.
> >
> > Hadley
> >
> >
> >>
> >> > y$color = factor(y$Fnd)
> >> > y$color = c("black","darkgray","lightgray","white")
> >> > y
> >> Fnd locus Freq color
> >> 1 signeg A 0.087248322 black
> >> 2 neg A 0.711409396 darkgray
> >> 3 pos A 0.201342282 lightgray
> >> 4 sigpos A 0.000000000 white
> >> 5 signeg C 0.320754717 black
> >> 6 neg C 0.603773585 darkgray
> >> 7 pos C 0.075471698 lightgray
> >> 8 sigpos C 0.000000000 white
> >> 9 signeg B 0.157534247 black
> >> 10 neg B 0.732876712 darkgray
> >> 11 pos B 0.109589041 lightgray
> >> 12 sigpos B 0.000000000 white
> >>
> >> > p = ggplot(y, aes(x=locus, y=Freq, fill=color)) +
> >> > geom_bar(position="fill") + scale_fill_identity()
> >> > p
> >>
> >>
> >>
> >>
> >> hadley wrote:
> >> >
> >> >
> >> > Hi Dieter,
> >> >
> >> > You can do this with ggplot2 (http://had.co.nz/ggplot2) as follows:
> >> >
> >> > library(ggplot2)
> >> >
> >> > barley1 <- subset(barley, site=="Grand Rapids" & variety %in%
> >> > c("Velvet","Peatland"))
> >> > barley1[] <- lapply(barley1, "[", drop=TRUE)
> >> >
> >> > qplot(variety, yield, data=barley1, geom="bar", stat="identity",
> >> > fill=factor(year))
> >> >
> >> > barley1$fill <- c("red","green","blue","gray")
> >> > qplot(variety, yield, data=barley1, geom="bar", stat="identity",
> >> > fill=fill) + scale_fill_identity()
> >> >
> >> > See http://had.co.nz/ggplot2/scale_identity.html and
> >> > http://had.co.nz/ggplot2/position_stack.html for more details.
> >> >
> >> > Hadley
> >> >
> >> >
> >>
> >>
> >> --
> >> View this message in context:
> >> http://www.nabble.com/Stacked-barchart-color-tf3909162.html#a11149419
> >> Sent from the R help mailing list archive at Nabble.com.
> >>
> >>
> >> ______________________________________________
> >> R-help_at_stat.math.ethz.ch mailing list
> >> https://stat.ethz.ch/mailman/listinfo/r-help
> >> PLEASE do read the posting guide
> >> http://www.R-project.org/posting-guide.html
> >> and provide commented, minimal, self-contained, reproducible code.
> >>
> >
> > ______________________________________________
> > R-help_at_stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> > http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >
> >
>
>
> --
> View this message in context: http://www.nabble.com/Stacked-barchart-color-tf3909162.html#a11182581
>
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help_at_stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



R-help_at_stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Fri 22 Jun 2007 - 20:21:35 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Fri 22 Jun 2007 - 20:34:04 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.