Example R code for grouped bar chart

cfr<-read.table("CFrt.Data", header=TRUE);

row.names<-c("CF","RP","BC2","EA");

colors<-c("blue","green","pink","orange");

barplot(as.matrix(cfr),main="", ylab = "Rate",

cex.lab=0.8, cex.main=1.4, xpd=FALSE,

beside=TRUE, col=colors,ylim=c(30,90));

legend("topright", legend=c("CF","RP","BC2","EA"),

fill=colors);