You can use the tidyr package to combine race and enth into one column and
fill by that. Then you get one colour for race and one for enth.
HTH
Ulrik
On Fri, 30 Dec 2016, 20:12 Richard M. Heiberger, <r...@temple.edu> wrote:
> I reproduced your graphs, but I don't understand what you want instead.
>
> There are several problems.
> one group is spelled "Lantinx".
> your factor statements mostly lead to NA values.
> The two panels of the plot do not use the same number of inches of
> the plotting window, due to different widths of the legends.
>
>
> On Fri, Dec 30, 2016 at 1:30 PM, Robert Lynch <robert.b.ly...@gmail.com>
> wrote:
> > I have some census data with race and ethnicity for various towns. I am
> > trying to make a stacked bar graph where all the race data is in one
> > stacked bar, and all the ethnicity data is in another.
> >
> > Below is a minimal reproducible sample.
> >
> > library("ggplot2")
> >
> > Demog <-
> > data.frame(source=c(rep("Davis",4),rep("Dixon",4),rep("Winters",4)),
> > group =c("Asian / Pacific
> Islander","Caucasian","Lantinx","Not
> > Latinx","African American", "Native American", "Latinx", "Not
> > Latinx","Mixed race","Other","Latinx", "Not Latinx"),
> > number =c(14491, 42571, 8172, 57450, 562, 184, 7426, 10952,
> > 332, 1488, 3469, 3155),
> > field = rep(c(rep("race",2),rep("ethnicity",2)),3))
> >
> > Demog$race <- factor(Demog$group, levels=c("Asian / Pacific Islander",
> > "Caucasian", "African American", "Native American / Alaska Native",
> "mixed
> > race", "other"))
> > Demog$ethn <- factor(Demog$group, levels=c("Latinx","not latinx"))
> > Demog$location <- factor(Demog$source, levels=c( "Dixon",
> > "Winters","Davis"))
> > Demog.bar1 <-ggplot(data = Demog, aes(x = location, y = number, fill =
> > race))+theme_bw() +geom_bar(stat = "identity",position = "stack") +
> > coord_flip()
> >
> > Demog.bar2 <-ggplot(data = Demog, aes(x = location, y = number, fill =
> > ethn))+theme_bw() +geom_bar(stat = "identity",position = "stack") +
> > coord_flip()
> >
> > show(Demog.bar1)
> > show(Demog.bar2)
> >
> >
> >
> >
> > Much thanks,
> > Robert
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > 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@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.
