Barplot

From Augix' Wiki

• put text on the top of the bars

a <- round(runif(100)*10)
y <- table(a)
x <- barplot(y,ylim=c(0,max(y)*1.1))
text(x,y,labels=y,pos=3)

• cool example

par(las=2,cex=1.5)
ha = c(10,20,100,1,34,24,74)
ca = c(30,20,120,1,44,24,74)
ma = c(3,2,12,1,4,2,7)
m = rbind(ha,ca,ma)
b = c("L1","L2","Alu","r1","r2","r3","rRNA")
cols = c("red","blue","black")
barplot(m,names.arg=b,beside=T,horiz=1,col=cols)
legend("topright",legend=c("human","chimp","rhesus"),pch=15,col=cols)