Dear R Community,
I have a dataframe like this
dat product1 product2 ... productn
01.1.2008 1 1 1
02.1.2008 1 1 2
.
15.2.2008 2 2 NA
.
04.4.2008 2 2 1
05.4.2008 NA 2 NA
(date ascending order, 1:n products with status 1, 2 or NA)
and want to produce a graphic like this, where 1 or 2 are colored
rectangles, NAs are white:
product1 11..........2............2_
product2 11..........2............22
.
.
productn 12.........._............1_
time_axis (=dat) ->
which looks like a Gantt chart with multiple time slots. I have tried it
with image() which looks good, but I don't know how to produce an y-axis
with labels product1, etc. and a x-axis with date labels.
Further, I want to draw a scatterplot below (using layout()) with the same
x-axis.
Maybe someone has a better idea which is easier to label?
Regards
Klemens
--
View this message in context:
http://www.nabble.com/Gantt-chart-like-graphics-tp17518407p17518407.html
Sent from the R help mailing list archive at Nabble.com.
Try gantt.chart in the plotrix package. On Wed, May 28, 2008 at 1:54 PM, kljosc <kljosc at liwest.at> wrote:> > Dear R Community, > > I have a dataframe like this > > dat product1 product2 ... productn > 01.1.2008 1 1 1 > 02.1.2008 1 1 2 > . > 15.2.2008 2 2 NA > . > 04.4.2008 2 2 1 > 05.4.2008 NA 2 NA > > (date ascending order, 1:n products with status 1, 2 or NA) > > and want to produce a graphic like this, where 1 or 2 are colored > rectangles, NAs are white: > > product1 11..........2............2_ > product2 11..........2............22 > . > . > productn 12.........._............1_ > time_axis (=dat) -> > > which looks like a Gantt chart with multiple time slots. I have tried it > with image() which looks good, but I don't know how to produce an y-axis > with labels product1, etc. and a x-axis with date labels. > Further, I want to draw a scatterplot below (using layout()) with the same > x-axis. > Maybe someone has a better idea which is easier to label? > > Regards > Klemens > -- > View this message in context: http://www.nabble.com/Gantt-chart-like-graphics-tp17518407p17518407.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >
kljosc wrote:> Dear R Community, > > I have a dataframe like this > > dat product1 product2 ... productn > 01.1.2008 1 1 1 > 02.1.2008 1 1 2 > . > 15.2.2008 2 2 NA > . > 04.4.2008 2 2 1 > 05.4.2008 NA 2 NA > > (date ascending order, 1:n products with status 1, 2 or NA) > > and want to produce a graphic like this, where 1 or 2 are colored > rectangles, NAs are white: > > product1 11..........2............2_ > product2 11..........2............22 > . > . > productn 12.........._............1_ > time_axis (=dat) -> > > which looks like a Gantt chart with multiple time slots. I have tried it > with image() which looks good, but I don't know how to produce an y-axis > with labels product1, etc. and a x-axis with date labels. > Further, I want to draw a scatterplot below (using layout()) with the same > x-axis. > Maybe someone has a better idea which is easier to label? >Hi Klemens, While this looks like a Gantt chart, you'll have to massage your data a bit to use the gantt.chart function. You would have to define start and end dates. As it looks like your data are in daily increments, it would probably be easier to use plot and mark each occurrence with a square filled with the color corresponding to your productx values. Let's see now, call your dataframe kl.df... dates<-strptime(kl.df$dat,format="%d.%m.%Y") datesP<-as.POSIXct(dates) kldim<-dim(kl.df) plot(0,xlim=range(datesP),ylim=c(1,2),type="n",xaxt="n") axis(1,labels=dates,at=datesP) for(i in 2:kldim[2]) points(dates,kl.df[,i],pch=22,bg=kl.df[,i]) pretty rough, but it should give you a start. Jim