green := Color green alpha: 0.4.
red := Color red alpha: 0.6.
gray := Color gray alpha: 0.4.
data := {
				{ #good. 0. 18. #P1. green. }. { #good. 24. 31. #P1. green. }.
			 	{ #good. 0. 23. #P2. green. }. {#good. 24. 31. #P2. green. }.
			 	{ #good. 0. 8. #P3. green. }. { #failed. 8. 9. #P3. red. }. {#good. 9. 31. #P3. green. }.
			 	{ #good. 0. 24. #P4. green. }. {#good. 25. 31. #P4. green. }.
				}.
	b := RTTimeline new.
	s := RTTimelineSet new.
	s objects: data.
	s lineIdentifier: #fourth.
	s start: #second.
	s end: #third.
	s shape fillColor: #fifth.
	b add: s.
	b axisX 
		numberOfLabels: 5;
		labelRotation: -45;
		labelConversion: [ :v | Date year: 2015 day: v + 107 ]. 
	d := RTVerticalTickLineDecorator new.
	d shape line color: Color white.
	b axisX numberOfDecoratorTicks: 31.
	b addDecorator: d.
	b open.
Each veritcal bar is a day.  Did this with changing RTVerticalTickLineDecorator to check for a different step than the label step - basically, caused the decorator to use a sub-tick number (using b axisX numberOfDecoratorTicks: 31 - new method added).