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.
