Wow! Yes, that is perfect! Thanks!!

On Wed, Sep 30, 2009 at 1:17 PM, jim holtman <jholtman@gmail.com> wrote:

> Is this close to what you want:
>
> x <- read.table(textConnection("locus min max
> K9/10* 70 72
> Pcc40 80 81
> 2F9 84 100
> 4E8/Pca12 96 108
> Pau6 99 103
> Pau20 100 113
> Pau9 103 129
> Pocc1* 104 128
> Pau7 105 111"), header=TRUE, as.is=TRUE)
> closeAllConnections()
> x$row <- seq(nrow(x))
> plot(0, type='n', ylim=c(0,max(nrow(x)) + 1), xlim=range(c(x$min, x$max)))
> segments(x$min, x$row, x$max, x$row)
> points(c(x$max, x$min), c(x$row, x$row), pch=16)
> text(x$min, x$row+.5, x$locus)
>
>
>
> On Tue, Sep 29, 2009 at 7:01 PM, Jolene Sutton <jolene.sutton@gmail.com>
> wrote:
> > Hi,
> >
> > I am trying to connect points on a graph that originate from *different
> > columns of data*. For each sample I have minimum and maximum data points
> and
> > I would like to draw a line connecting these in order to visualize the
> > spread, as well as where each sample is in relation to the x-axis. So far
> I
> > can generate the points, but the only lines I have been able to make join
> > all the minimum values together OR all the maximum values together. I
> would
> > like to graph the lines without having manually do one at a time. I have
> > included a sample of my data below.
> >
> > I have attached a PDF file of what I would like the final product to look
> > like.
> >
> > Any suggestions would be greatly appreciated!!
> >
> > cheers,
> > Jolene
> >
> >
> >  locus min max  K9/10* 70 72  Pcc40 80 81  2F9 84 100  4E8/Pca12 96 108
> > Pau6 99 103  Pau20 100 113  Pau9 103 129  Pocc1* 104 128  Pau7 105 111
> >
> >
>

	[[alternative HTML version deleted]]


