worked perfectly.  kia ora!  :)

On Thu, May 20, 2010 at 1:19 PM, Peter Alspach <
Peter.Alspach@plantandfood.co.nz> wrote:

> Tena koe Anthony
>
> You could try:
>
> segments(rep(0,6), 2:7, rep(2.3, 6), 2:7)
>
> HTH ...
>
> Peter Alspach
>
> > -----Original Message-----
> > From: r-help-bounces@r-project.org [mailto:r-help-bounces@r-
> > project.org] On Behalf Of Anthony Lopez
> > Sent: Friday, 21 May 2010 5:39 a.m.
> > To: R-help@r-project.org
> > Subject: [R] lines on plot
> >
> > Is there an easier way to make this graph *without* having to specify
> > all of
> > the separate segment arguments at the end?
> >
> > > x <- c(1,2)
> > > off <- c(4,5.5)
> > > def <- c(5.5,5.9)
> > > par(fg="lightblue4")
> > >
> >
> plot(x,off,type="o",col="dodgerblue4",ylim=c(2,7),xlim=c(0.7,2.3),axes=
> > F,xlab="Labor
> > Condition",ylab="Willingness to Join",lwd=3)
> > > lines(def,type="o",pch=22,lty=2,col="firebrick",lwd=3)
> > > axis(1,at=x,lab=c("Sufficient","Insufficient"))
> > > axis(2,at=2:7,lab=c("2","3","4","5","6","7"))
> > > segments(0,2,2.3,2)
> > > segments(0,3,2.3,3)
> > > segments(0,4,2.3,4)
> > > segments(0,5,2.3,5)
> > > segments(0,6,2.3,6)
> > > segments(0,7,2.3,7)
> >
> > anthony
> >
> >       [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help@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.
>

	[[alternative HTML version deleted]]

