Wow! Yes, that is perfect! Thanks!!
On Wed, Sep 30, 2009 at 1:17 PM, jim holtman <jholt...@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.sut...@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]]
______________________________________________
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.
