[R] displaying percentage in bar plot

[Richard.Cotton at hsl.gov.uk]

> I have a following data
> 
>                          AIS LEvel
>                          1              2            3
> body region    A  10          15           20
>                      B  15          25          15
> 
> Now I want to plot a barplot and in each bar (corresponding a body 
region),
> I need a percentage of AIS level 1 displayed in the plot. Is there an 
easy
> way to do this ?

Try this:
x <- matrix(c(10,15,15,25,20,15), ncol=3)
pct <- apply(x, 1, function(x) 100*x[1]/sum(x))
custompanelfn <- function(...)
{
   panel.barchart(...)
   panel.text(x=c(5,5), y=c(1,2),paste(format(pct, digits=3),"%", sep=""))
}
library(lattice)
barchart(x, panel=custompanelfn)

Regards,
Richie.

Mathematical Sciences Unit
HSL



------------------------------------------------------------------------
ATTENTION:

This message contains privileged and confidential inform...{{dropped:20}}