I always use geom_text when I want to add text or labels to a plot. HTH Ulrik
Shawn Way <s...@meco.com> schrieb am Mo., 5. Dez. 2016, 23:58: > That’s precisely what I’m trying to accomplish. > > Shawn Way, PE > > From: John Kane [mailto:jrkrid...@yahoo.ca] > Sent: Monday, December 05, 2016 4:47 PM > To: Shawn Way <s...@meco.com>; r-help@r-project.org > Subject: Re: [R] Using ggplot2 to plot percentages in bar chart. > > I've never seen stat_bin used like that. What exactly is it supposed to > do. It looks like you are trying to label the %ages in each piece of the > bar. > > On Monday, December 5, 2016 2:17 PM, Shawn Way <s...@meco.com<mailto: > s...@meco.com>> wrote: > > I have the following data in which I'm trying to summarize in a stacked > bar plot showing the percentages as a label in the bar. > > The data is as follows: > > > head(data) > MASTERPAK2LT MASTERPAK4LT MASTERPAK7LT MASTERPAK10LT MASTERPAK22LT > 1 X X X X X > 2 C C C X X > 3 C C C X X > 4 U U X X X > 5 <NA> U X X X > 6 <NA> <NA> X <NA> <NA> > > It is then transformed using dplyer: > > > d2 <- data %>% > gather(Model,Status) %>% > group_by(Model,Status) %>% > summarise(count=n()) %>% > mutate(perc=count/sum(count)) > > giving > > head (d2) > Source: local data frame [6 x 4] > Groups: Model [2] > > Model Status count perc > <chr> <chr> <int> <dbl> > 1 MASTERPAK10LT C 8 0.21052632 > 2 MASTERPAK10LT X 29 0.76315789 > 3 MASTERPAK10LT <NA> 1 0.02631579 > 4 MASTERPAK22LT C 6 0.15789474 > 5 MASTERPAK22LT U 1 0.02631579 > 6 MASTERPAK22LT X 30 0.78947368 > > I then try to plot this using ggplot using > > plt <- ggplot(d2,aes(x=Model,y= perc,fill=Status)) + > geom_bar(stat="identity") + > labs(y="Percent Complete") + > stat_bin(geom = "text", > aes(label=paste(round(perc*100),"%")), > vjust=5) + > scale_y_continuous(labels = percent) > > but I get the error: > > Error: stat_bin() must not be used with a y aesthetic. > > When I leave out the stat_bin, I get the correct bar chart, but without > the labels. Can someone please help me understand what is causing the > error above? > > > Thank you kindly, > > Shawn Way, PE > > ______________________________________________ > R-help@r-project.org<mailto: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< > 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. [[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.
