Use gráficos de seguimentos. Sugestão lattice::segplot().

À disposição.
Walmes.