[R] Gantt chart but slightly different

[Beata Czyz]

Hello,
I am new to this list and rather new to graphics with R.
I would like to make a chart like Gantt chart, something like that:

require (plotrix)
Ymd.format<-"%Y/%m/%d"
gantt.info<-list(labels=c("Male 1","Male 1","Male 1", "Male 2", "Male 2"),
starts=as.POSIXct(strptime(c("2004/01/01","2004/04/03","2004/05/06",
"2004/03/05", "2004/05/20"),format=Ymd.format)),
ends=as.POSIXct(strptime(c("2004/03/03","2004/04/20", "2004/05/29",
"2004/05/06", "2004/06/10"), format=Ymd.format)),
priorities=c(1,2))
vgridpos<-as.POSIXct(strptime(c("2004/01/01","2004/02/01","2004/03/01",
"2004/04/01","2004/05/01","2004/06/01","2004/07/01","2004/08/01",
"2004/09/01","2004/10/01","2004/11/01","2004/12/01"),format=Ymd.format))
vgridlab<-c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
gantt.chart(gantt.info,main="",
priority.legend=FALSE,vgridpos=vgridpos,vgridlab=vgridlab,hgrid=FALSE,
taskcolors=NULL, cylindrical=FALSE)

but I would like to fill the different blocks of tasks with different
pattern i.e. first blocks of Male 1 and Male 2 with pattern 1, second
blocks of Male 1 and Male 2 with pattern 2 etc.
Any idea?

Bests,
Beata