Segmented Barplot using R

I've started working on an Exploratory Data Analysis (EDA) for share2me, now that real live folk (as opposed to us tech weenies) are sharing stuff. Naturally, being a statistician at heart I went straight to http://www.r-project.org/ to download the latest rev of R.

My first goal was simply to get back on the bike and start pedaling. In stats this amounts to some judicious select statements and data loading (statistics doesn't have the same issue shortening the name as fraternities). Then typing two lines of code:

x<-read.csv("~/R/data/inconspicuous.csv", header=F)
barplot(table(x[,1],x[,3]), main="Inconspicuous Segmented Barplot", col=rainbow(20,start=.1,end=.8), axisnames=F)

results in the following fabulously segmented barplot... totally bitchen!