[R] aggregation question

[Jim Lemon]

Dr Eberhard Lisse <el at lisse.na> wrote:
 > Hi,
 >
 > I am reading payment data like so
 >
 > 2010-01-01,100.00
 > 2010-01-04,100.00
 > ...
 > 2011-01-01,200.00
 > 2011-01-07,100.00
 >
 > and plot it aggregated per month like so
 >
 > library(zoo)
 > df <- read.csv("daily.csv", colClasses=c(d="Date",s="numeric"))
 > z <- zoo(df$s, df$d)
 > z.mo <- aggregate(z, as.yearmon, sum)
 > barplot(z.mo, col="darkblue")
 >
 > How do I get the monthly aggregated payments in different colors
 > next to each other (ie for each year in a different color with the x
 > axis showing the months)?

Hi Dr Eberhard Lisse,
You might also be interested in barp:

paybymonth<-matrix(sample(100:200,120,TRUE),nrow=10)
rownames(paybymonth)<-2000:2009
colnames(paybymonth<-month.abb
library(plotrix)
barp(paybymonth,names.arg=colnames(paybymonth),col=rainbow(10),
  ylim=c(0,250),main="Payments by month from 2000-2009")
par(xpd=TRUE)
legend(13,180,2000:2009,fill=rainbow(10))
par(xpd=FALSE)

Jim