[R] Label bars in a faceted bar plot in ggplot2

[Harsh]

Worked like a charm.
Thanks a ton Thierry.

Harsh Singhal
Decision Systems
Mu Sigma Inc.
Chicago, IL

On Wed, Feb 11, 2009 at 6:33 PM, ONKELINX, Thierry
<Thierry.ONKELINX at inbo.be> wrote:
> Dear Harsh,
>
> Have a look at geom_text()
>
> ggplot(df, aes(x = Models, y = Values)) + geom_bar() + geom_text(aes(y =
> Values + 1, label = round(Values, 2))) + facet_grid(.~Type)
>
> HTH,
>
> Thierry
>
>
> ------------------------------------------------------------------------
> ----
> ir. Thierry Onkelinx
> Instituut voor natuur- en bosonderzoek / Research Institute for Nature
> and Forest
> Cel biometrie, methodologie en kwaliteitszorg / Section biometrics,
> methodology and quality assurance
> Gaverstraat 4
> 9500 Geraardsbergen
> Belgium
> tel. + 32 54/436 185
> Thierry.Onkelinx at inbo.be
> www.inbo.be
>
> To call in the statistician after the experiment is done may be no more
> than asking him to perform a post-mortem examination: he may be able to
> say what the experiment died of.
> ~ Sir Ronald Aylmer Fisher
>
> The plural of anecdote is not data.
> ~ Roger Brinner
>
> The combination of some data and an aching desire for an answer does not
> ensure that a reasonable answer can be extracted from a given body of
> data.
> ~ John Tukey
>
> -----Oorspronkelijk bericht-----
> Van: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
> Namens Harsh
> Verzonden: woensdag 11 februari 2009 13:49
> Aan: r-help at r-project.org
> Onderwerp: [R] Label bars in a faceted bar plot in ggplot2
>
> Hi List,
> I am running R 2.8.0 on a Windows XP machine, running ggplot2 version
> 0.8.1
>
> I want to label the bars in a faceted grid barplot. Reproducible R
> code is given below:
>
>
> #### reproducible facet barplot #####
>
> library(ggplot2)
>
> # Dataset from which to create the barplot
> ml <- rep(1:10,2)
> vals <- rnorm(20,mean = 10, sd=1)
> type <- c(rep("MAPE",10),rep("AIC",10))
> df<- data.frame(Models = as.factor(ml),Values=vals,Type=type)
>
> # create lables to put on the bars
> mapevals <- rnorm(10,1,1) * 10
> aicvals<- rnorm(10,1,1) * 1000
>
> ## create plot
> p<- NULL
> p<- qplot(x=Models,y=Values,data=df,geom="bar")
>
> # facet grid
> print(p + facet_grid(.~Type))
> ################### END R CODE #########################
>
> The above R code brings to the point where I see two grids based on
> MAPE and AIC.
>
> I want to put mapevals and aicvals on the bars of the two grids that
> are created for MAPE and AIC respectively.
>
> Thank you for your time and patience.
>
> Regards
>
> Harsh Singhal
> Decision Systems,
> Mu Sigma Inc.
> Chicago, IL
>
> ______________________________________________
> R-help at r-project.org 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.
>
> Dit bericht en eventuele bijlagen geven enkel de visie van de schrijver weer
> en binden het INBO onder geen enkel beding, zolang dit bericht niet bevestigd is
> door een geldig ondertekend document. The views expressed in  this message
> and any annex are purely those of the writer and may not be regarded as stating
> an official position of INBO, as long as the message is not confirmed by a duly
> signed document.
>