An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20091125/b6be4126/attachment-0001.pl>
## Your original data is already the result of table().
## Here are two versions, one using barchart and one barplot.
tmpc <- textConnection("
Month Core(%) Non_core(%)
1 45 55
2 48 52
3 36 64
4 60 40
5 35 65
")
tmp <- data.matrix(read.table(tmpc, header=TRUE,
row.names="Month"))
close(tmpc)
barchart(tmp, horizontal=FALSE)
barplot(t(tmp))