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 at
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
>
>
> --
> Jolene Sutton
> ? PhD candidate
> ? Department of Zoology
> ? University of Otago
> ? 340 Great King St.
> ? PO Box 56
> ? Dunedin 9054
> ? New Zealand
>
> ? Fax: (64) 3-479-7584
> ? Cell: (64) 027-261-6121
> ? E-mail: jolene.sutton at gmail.com
>
> ? www.erg.otago.ac.nz
>
> ______________________________________________
> R-help at 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.
>
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem that you are trying to solve?